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Gagnez 
unVOyage 
a Silicon 
Val le Dr 


maine pour deux per- 
sonnes au pays de la micro-in formatique. 

MICRO-EXPO, 9° congrès-exposition, carrefour interna- 
tional de la micro-informatique se tiendra à Paris, au Palais des 
Congrès du 22 au 26 mai 1984. 

Visitez cette manifestation qui vous offrira la possibilité 
exceptionnelle de rencontrer et de dialoguer avec plus de 
200 exposants français et étrangers, de suivre une trentaine de 
conférences professionnelles et grand public : comment choi- 
sir son tableur électronique, les systèmes intégrés : 1 - 2 - 3, 
Lisa, Visi/On, MS-WIN, choisir son micro, comptabilité et 
bases de données, Basic..Découvrez les dernières nouveautés 
dont certaines seront présentées en exclusivité. 

La multiplicité et la diversité des produits et techniques 
présentés à ce grandrendez- mm 
vous annuel constitueront y £%'mpase du Cure 7SoBPaRS 
pour vous la garantie du bon 
investissement et de la bonne 
décision. 


6-8, mpasse du Curé-75018 PARIS 

Celui-ci est votre litre de participation au tirage au sont qui aura lieu en 
présence de Maître P. Chale, huissier à Paris. Merci de m'adresser : 

[1 une entrée gratuite et le programme détaillé des conférences. 

D un passeport valeur 100 F T.T.C. me donnant droit à l'entrée permanente 
au salon, au guide de la micro 84 et de participer à toutes les conférences de 
mon choix (attention le nombre de places est limité). 


Prénom 
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Editorial 


Sauve qui peut ! Les ordinateurs envahissent la pla- 
nète ! Ce pourrait être le message du dernier jeu à 
la mode (il existe probablement déjà) apparaissant sur 
l'écran vidéo de votre ordinateur... C'est pourtant, 
et plus que jamais, une réalité quotidienne. Le mou- 
vement amorcé depuis quelques années ne cesse de se 
confirmer. "L'année de l'ordinateur", c'était hier. 
T1 va falloir se “creuser les méninges" pour trouver 
un autre slogan qui qualifiera cette nouvelle année 
1984, car en ce domaine, elle s'annonce déjà pleine 
de promesses. Les nouveaux ordinateurs se multiplient, 
de même que les manifestations dans lesquelles ils 
apparaissent.On ne s'étonne plus aujourd'hui, de voir 
un ordinateur par exemple sur les stands de la foire 
agricole ! 


A l'époque où l'ordinateur individuel commençait à 
entrer dans les foyers, les professionnels le contem- 
plaient d'un air narquois : comment pourraient-ils 
sérieusement employer de tels "jouets! dans leur tra- 
vail... Pourtant, certains ont eu l'idée de le faire 
et ils ne le regrettent pas aujourd'hui. Ils ont même 
une certaine avance sur leurs confrères qui s'aperçoi- 
vent - mais un peu tard - qu'une entreprise qui n'est 
pas informatisée à l'heure actuelle, ne pourra pas 
subsister. 


Certains constructeurs, comme Texas et Tandy, ont sui- 
vi le mouvement et se tournent désormais et résolument 
- non sans avoir donné le coup de grâce à leur "home 
computer" respectif -vers les applications profession- 
nelles, du moins si l'on observe les campagnes publi- 
ciaires concernant les matériels proposés : modèle 3, 
modèle 4, modèle 100 et bientôt le Tandy-2000 pour 

ce dernier constructeur. L'ordinateur à la maison 
n'était-il donc qu'un prétexte ? 


TRACE 
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Clefs pour le TRS-80 - Tome 1 
par Rémy Pineau 

Débutant ou spécialiste, ce ‘‘mémento"' 
vous est destiné. Son but est de vous 
fournir les ‘‘clefs’’ d’un accès rapide et 
efficace à l'apprentissage ou à la maî- 
trise de l'utilisation des Modèles | et III. 
Ce premier tome aborde essentiellement 
les caractéristiques de la version de 
base du TRS-80 (plans, mémoires, bro- 
chages, codes, syntaxe, message d'er- 
reurs du Basic, codes machine Z80); 
cependant les deux derniers chapitres, 
consacrés aux adresses ROM et RAM 
du système, servent de transition au 
2° tome destiné aux utilisateurs actuels 
ou potentiels de disque. 


192 pages - 120,00 FF/925 FB/37,60 FS 





Clefs pour le TRS-80 - Tome 2 

par Rémy Pineau 

Possesseurs de TRS-80 modèle | ou III 
équipé de disques, ce deuxième tome 
des “clefs” vous est destiné. Il a pour 
objectif de vous donner les principales 
informations concernant l'utilisation 
des disques à travers l'étude des dif- 
férents formats de stockage de données, 
des commandes des Systèmes d’Exploi- 
tation Standards (TRS-DOS, LDOS, 
NEWDOS) et des utilitaires associés les 
plus courants. 


200 pages - 120,00 FF/925 FB/37,60 FS 
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le magazine des utilisateurs de TRS-80' 




























TRS-80 modèle 1, TRS-80 
modèle 2, TRS-80 modèle 3, 
TRS-80 couleur, TRS-80 
de poche, poquettes Sharp* 
Vidéo-Génie*, LNW* : 

si VOUS utilisez ou si vous 
comptez acheter un de ces 
ordinateurs, sachez que la revue 
TRACE a été créée pour vous. 
TRACE vous fournit quatre 

fois par an des programmes, 
des astuces, de nouvelles idées 
d'applications. TRACE est 
indépendant de tout constructeur, 
et vous tient au courant de toutes sisi 

les nouveautés dans les domaines des logiciels, des matériels et des 
périphériques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivité 
et indépendance, les produits matériels ou logiciels qui vous intéressent. TRACE n'est 
pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 
numéro, il vous suffit de nous retourner le bon de commande ci-dessous. 











MESSAGE DESTINÉ AUX UTILISATEURS 
DE TRS 80 A DISQUETTE 













Désormais, tous les programmes 
publiés dans un numéro de TRACE 
et se rapportant aux TRS 80 de table 
ou à leurs compatibles 
sont regroupés sur une disquette 
que vous pouvez recevoir 
avec votre exemplaire de la revue. 





















*TRS 80, Sharp, Vidéo-Génie et LNW sont des marques déposées. Trace a le même éditeur qu'ORDI-5 le magazine des utilisateurs de ZX SINCLAIR 


TRACE, le complément indispensable de votre TRS-80 
PR ee re + SR OR EN RER ll 


BON DE COMMANDE = 
| à retourner à TRACE, 8 rue Saint-Marc 75002 PARIS i 
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Nous commençons à "crouler" sous le courrier et les 
articles que vous nous envoyez... ce qui tend à prou- 
ver l'intérêt que vous portez à notre revue, à VOTRE 
revue. Merci d'avoir répondu à nos appels ! 


Certains lecteurs s'étonnent de ne pas voir passer 
leurs articles plus rapidement ou nous disent : "j'es- 
père que cet article passera dans le prochain numéro 
.-.". Que ces derniers se rassurent : ils n'ont pas 
été oubliés et leur tour viendra : La parution d'un 
article est soumise à différentes contraintes : la 
“file d'attente" des articles reçus antérieurement 
(et elle commence à être importante), la longueur de 
l'article (un article long nous cause toujours beau- 
coup de problèmes, car compte tenu du nombre de pages 
du magazine, il ne peut occuper une place trop impor- 
tante, sauf s'il présente un intérêt pour la grande 
majorité de nos lecteurs, ce dont nous ne sommes ja- 
mais sûrs...), le sujet dont traite l'article (un su- 
jet inédit ou d'actualité, a des chances de passer 
plus rapidement qu'un classique " jeu du pendu" ou qu' 
un programme utilitaire qui risque de ne toucher que 
2 % de nos lecteurs). De plus, il y a l'occasion ou, 
pour diverses raisons, il paraît souhaitable qu'un 


article soit publié conjointement à un autre, ce der- 
nier se trouvant alors extrait de la pile avant terme. 
Enfin, certains articles, bien que présentant un grand 
intérêt, ne peuvent pas être publiés "tels quels et 
demandent à être remaniés, complétés, ou appuyés par 
des exemples (qui devront naturellement être testés 

au préalable). Compte tenu du temps dont nous dispo- 
sons, il est évident que ces articles, indépendament 
de notre volonté, risquent de redescendre la file d' 
attente plutôt que de la remonter : Soyez donc patients 
... et compréhensifs. Merci. 


If not possible ? 


- Dans le livre "Visicalc sur TRS", je n'arrive pas 

à entrer la formule de la case A20 pour l'exemple de 
la feuille d'impôt : après la frappe de "OIF", le fait 
d'entrer le signe "(" fait disparaître "@IF"... (M. 
Dupuis, Roost). 


* La raison est très simple : la fonction IF est 
inconnue de la version de Visicalc tournant sur 
TRS-80. En entrant la parenthèse le programme 
détecte alors qu'il ne connaît pas cette fonction 
et l'efface. Le problème vient du fait que le li- 
vre en question a initialement été écrit sur Apple, 
ordinateur pour lequel Visicalc est plus riche et 
possède notamment la fonction IF: 


Le complexe du TRS ! 


- Mon TRS-80 modèle 1 doit faire un complexe d'infé- 
riorité quand il s'agit de faire tourner les program- 
mes : "conduite de nuit", "un utilitaire qui vaut de 
l'or" et "apprenez la musique"... Au fait, testez-vous 
les programmes qui vous sont envoyés ? Cela rejoint 

le problème général des programmes paraissant dans 

les revues : à de rares exceptions, des modifications 
sont nécessaires pour les faire tourner (Raymont Nivot, 
Le Creusot). 


* Tous les programmes que nous publions sont testés 
sur un TRS-80 modèle 1 et cela, pour trois raisons: 
pour vérifier les quelques modifications que nous 
apportons, pour calculer les sommes de contrôle 
de chaque ligne (afin d'éviter à nos lecteurs 
de faire des erreurs de frappe qui risqueraient 
justement de donner des complexes à leur ordina- 
teur) et enfin, pour en sortir la liste sur impri- 
mante. Naturellement, nous ne pouvons pas garantir 
un fonctionnement correct du programme dans tous 
les cas de figure (nous avons aussi d'autres choses 


Vos amis 


connaissent.ils 
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à faire et nous sommes obligés de faire un peu 
confiance à l'auteur !) mais nous vérifions tou- 
jours que le programme se lance correctement et 
s'exécute sans incident après quelques minutes de 
fonctionnement. De même, il ne nous est pas possible 
de vérifier la bonne éxécution du programme sur cha- 
que type ou chaque version d'ordinateur autre que ce- 
lui utilisé pour nos tests. Comme nous sommes fail- 
libles (enfin, presque pas !), nous avons prévu une 
rubrique spéciale dans notre magazine (Step-1), afin 
de réparer d'éventuelles erreurs. À ce jour (et pour- 
tant, nous en recevons du courrier !), aucune erreur 
ne nous a été signalée qui compromette le fonction- 
nement de l'un'des programmes dont il est question. 
Au fait, avez-vous réellement envisagé la possibili- 
té d'une erreur qui ne viendrait ni de nous, ni de 
votre ordinateur...7? 


TRS la honte ! 


- J'ai essayé d'adapter le programme TRS-80 "pour 
mieux prévoir" (pages 47 à 49, Trace n° 2) au ZX81 

et j'ai été surpris de constater des différences im- 
portantes au niveau du calcul du coefficient de cor- 
rélation délivré par ces deux machines, ce qui fausse 
le choix du meilleur ajustement. Pris d'un doute, j'ai 
repris le programme sur ma TI-58C et ai constaté qu' 
elle donnait raison au ZX ! (Jean-Michel Petit, Magny- 
Cours). 


* Merci pour ces "précisions" sur... l'imprécision 
du BASIC TRS, ce qui incite à conclure que dans 
ce cas, on a sûrement intérêt à travailler en dou- 
ble précision. 


Deux "token! pour ELSE 


- Suite à la parution du programme "Plus-Quot" pour 
produire des "super-graphiques (Trace n° 4, page 52), 
j'ai quelques difficultés avec le mot-clé ELSE qui 
produit les deux codes 149 et 58, ce qui donne des 
graphiques bizarres (Jean Suchocki, Vrigne aux Bois). 


* La commande ELSE est en effet un cas particulier 
(de même que l'apostrophe utilisée pour les com- 
mentaires) qui produit deux "token'", le second 
étant le séparateur de commande ":" (code 58). 

Une solution peu satisfaisante consiste à décaler 
le graphique d'une colonne ou d'une ligne pour 

ne pas tomber sur le code graphique 149... Un lec- 
teur a peut-être trouvé une meilleure solution ? 


Y'a plus qu'à ! 


- Du sérieux, SVP ! Avant de prendre position au su- 
jet du modem (Carte MDX-2, Trace n° 6). Il faut placer 
les bornes 13 et 14 du circuit intégré au 0 volt et 
calculer les nouveaux filtres. (L. Loriaux, Sambre- 
ville). 


* Nous aurions "sérieusement" accepté que vous nous 
donniez ces nouvelles valeurs de filtres ! Mais 
pour vous montrer que finalement, nous prenons 
les choses au sérieux, nous envisageons de publier 
bientôt un article sur ces modifications. 


Appel de fonction illégal ? 


- "Illegal fonction call" : quelle erreur embêtante ! 
Je connais le BASIC, mais pas au point de savoir que 
faire quand elle arrive. Pourriez-vous m'aider ? 
(J-M Dubasik, Biesset). 





*# Cette erreur apparaît lorsque vous tentez d'appe- 
ler une fonction alors que les paramètres d'appel 
sont incorrects, par exemple : racine carrée d' 
une valeur négative, appel USR vers une routine 
en langage machine dont l'adresse n'est pas spé- 
cifiée (ou incorrectement spécifiée), etc. Lors- 
que cette erreur arrive, imprimez (PRINT) le pa- 
ramètre en question et vous devriez comprendre 
rapidement la cause de cette erreur. Exemple 


10 N=3 

20 PRINT SQR(N) 
30 N=N-1 

40 GOTO 20 


Lorsque l'erreur arrive, faire : 
?2N 


La valeur imprimée est "-1", ce qui confirme bien 
l'erreur affichée. 


Ne pas confondre avec la gaufrette du patissier... 


- Je ne suis pas d'accord avec votre traduction du 
mot "wafer" par "galette" dont l'équivalent français 
serait plutôt "gaufrette" (cf Dictionnaire Français- 
Anglais Larousse, mais 1960, page 724), d'autant plus 
que le mot "galette" peut prêter à confusion avec les 
galettes de bandes magnétiques utilisées sur les pla- 
tines de magnétophone, et qui, à ma connaissance, n' 
ont jamais été utilisées en informatique (Gérard Bar- 
ré, Beauvais). 


* Merci pour cette précision, mais ne cherchez pas 
trop dans les dictionnaires anglais la significa- 
tion américaine de certains mots.:. Vous risquez 
parfois d'en être très étonné : Les Anglais eux- 
mêmes ne sont pas toujours d'accord de l'usage 
que font les Américains de leur vocabulaire ! 


SPECIALISTE DES 
LOGICIELS DE 

GESTION SUR 
MICRO-ORDINATEUR 
adaptés aux PME 
PMI, commerçants, 
artisans, professions 
libérales. 


(D Marques déposées Dominique PETITQUEUX 





au Plan Comptable" 
-+200 frs 
s +250 frs 


Logiciel du traitement de la Paie jusqu'à 80 


+300 frs 


Logiciel de gestion des CHIFFRES dans le TEMPS (! 


900 frs 


FA BAM: ORP-RER : 


Logiciel de gestion du Tableau d'Amortissement 
on de base — 


CRUE TE 


Logiciel de gestion des adresses postales -(Mailing) 


prix TIC jusqu 


version de bas 


2 16 92 6 49.82.87 








Nnces recomnantées DMP2 





Tandy est maintenant implanté en Europe depuis 10 ans 
où il compte à ce jour, 515 magasins dont 112 en Fran- 
ce et 194 en Belgique. L'usine de production des TRS' 
80, MTE (Matra-Tandy-Electronique), produit aujourd 
hui pour l'ensemble du réseau européen, les modèles 

3, 4 et MC-10. Plus de 20000 unités seraient déjà sor- 
ties de cette usine. 


Tandy qui a complètement renouvelé sa gamme TRS80, a 
introduit sur le marché plus de 6 nouveaux modèles d' 
ordinateurs individuels en 6 mois et plus de 10 modè- 
les d'imprimantes en 1 an. De nouveaux appareils ont 
été présentés récemment à l'occasion de l'exposition 
Comdex de Las Vegas. Ils seront disponibles en France 
durant le premier semestre 84 fin mars pour le mo- 
dèle 4 P (modèle 4 portable), fin juin pour le modèle 
2000 (16 bits à base de microprocesseur Intel 8088, 
tournant sous le système d'exploitation MS-DOS - tout 
comme 1'IBM-PC). 


Notons également l'ouverture à Saint-Etienne du dixiè- 
me "Centre Ordinateurs" Tandy en France, dont l'adres- 
se est : 


Rue Marc Charras 
42000 Saint-Etienne 
(Tél : 77/38.51.09) 


où des cours gratuits d'initiation au BASIC et au trai- 
tement de texte sont proposés sur modèle 3. 


Tandy France, 211-213 bd Mac Donaid, 75019 Paris. 





Carte Grafyx Solution 


IDEN, ainsi que les sociétés Micro-Influx et Boutisoft, 
commercialisent les produits suivants 

- la carte haute résolution "Grafyx Solution" pour le 
modèle 3. S'installant sans aucune soudure, elle offre 
(en noir et blanc) une résolution de 512 x 192 points. 
La carte est accompagnée d'un manuel de 50 pages et 
d'une disquette (ou une cassette selon le cas) compre- 
nant une extension du BASIC pour commander les nouvel- 
les fonctions graphiques et plus de 20 programmes, dont 
une recopie d'écran pour la plupart des imprimantes 
graphiques connues à ce jour. Un pilote d'écran (dri- 
ver) permet l'affichage de lignes de 80 caractères. 
Prix de vente : 3290 FF TIC. 

De plus, les logiciels Bizgraph et Draw, vendus res- 
pectivement 1490 et 495 FF TIC, complètent utilement 
cette extension. Le premier, orienté "affaires", per- 
met d'afficher des graphiques sous plusieurs formes 
histogrammes, camemberts, courbes, etc... Quant au 
second programme, il s'agit d'un éditeur graphique 
utilisé pour la conception de dessins. 

— Pascal 80 pour les modèles 1 et 3, commercialisé 

ici dans une nouvelle version qui inclut entre autre: 
les variables pointeurs, la double précision sur tou- 
tes les fonctions mathématiques, les fonctions graphi- 
ques et aléatoires, un substitut aux "variant records". 
Pascal-80 est livré sur disquette et est accompagné 
d'un manuel bien documenté. Prix de vente 


1290 FF TIC. 


BIZGRAPH à l'action ... 





Le Pascal 80 pour modèles 1 et 3 


Autre nouvelle (et surprise) qui intéressera probable- 
ment nos lecteurs à la suite de nombreuses demandes 
(dont nous ne sommes pas étrangers...), ces sociétés 
ont décidé de commercialiser en France le système d' 
exploitation de disquettes NEWDOS-80 version 2 pour 
les modèles 1 et 3, qui était pratiquement introuva- 
ble jusqu'alors. Une bonne initiative qui va faire 

des heureux ! 


IDEN, 34 bis rue Sorbier, 75020 Paris 
Micro-Influx, 20 rue Laennec, 78330 Fontenay le Fleury 
Boutisoft, 9 rue de Lalande, 33000 Bordeaux 


L'AFPA (Association pour la Formation Professionnelle 
des Adultes) organise des stages de courte durée (du 
lundi au vendredi) dans les domaines suivantes : élec- 
tronique générale, logique séquentielle, microinfor- 
matique, logiciel en microinformatique, téléinforma- 
tique. Ces stages sont organisés toute l'année sauf 
juillet et août. 


AFPA, 38 ave Victor Hugo, 38800 Le Pont de Claix. 


Le progiciel Compta-3 de la société Série-3, est main- 

tenant présenté dans une nouvelle version dont les 

caractéristiques sont les suivantes 

- version mixte Nouveau et Ancien Plan Comptable, 

— numérotation 5 chiffres (au lieu de 4), 

- nouvelle Balance Générale à plusieurs niveaux de 
sélectivité, 

- paramètrage du bilan et CEG, 

- optimisation Edition journal/imputation comptes 

- nouvelle documentation en trois brochures : "Visa 
pour Compta-3","initiation et mise en route", "Uti- 
lisation des programmes", 

- version TRS-DOS 1.3 ou LDOS, 


Erix TOO NFEETECS 


Série-3, 5 rue Mont Alaric, 11100 Narbonne. 


EP I 
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LISTEZ VOS MOTS-CLES EN 62 OCTETS ! 


Voici un programme de listage des mots-clés avec leurs 
“token" encore plus court que celui publié dans le nu- 
méro 6 de TRACE (62 octets au lieu de 66), à condition 
de supprimer les espaces... 


10 FOR 1=5712 TO 6175 : IF PEEK(I) > 128 PRINT,J+128; 
: J=J+1 
20 PRINT CHR$(PEEK(I)AND NOT 128); : NEXT 


G. Briand 





RETROUVEZ LE NOM D'UN PROGRAMME "SYSTEM" 


Ce "mini-utilitaire" est destiné exclusivement aux 
utilisateurs de cassettes sur modèle 1. Il permet de 
retrouver le nom d'un programme "system" que l'on a 
oublié. La routine en langage machine qu'il contient 
pourra être placée dans la zone réservée à l'horloge, 
inutilisée ici. Ainsi, il n'y a pas de risque de des- 
truction, même après un "memory size" malencontreux. 


10 DATA 62,0,205,18,2,205,150,2,6,7,205, 
53,2,205,51,0,16,248,195,204,6 


Pour charger ce programme, faire 

FOR A=16478 TO 16498 : READ B : POKE A,B : NEXT 
et pour l'exécuter : 

SYSTEM 

/16478 


Vous verrez apparaître 7 lettres sur l'écran : un "U" 
puis les six lettres du nom recherché. Si vous ne 

voyez pas de "U", la bande n'est pas de type "system" 
ou le règlage de volume du cassetophone est incorrect. 


Pierre Duchêne 





Dans la série "plantez votre système"... 


Tapez 

SYSTEM 

1133 

puis frappez plusieurs touches en observant bien l' 
écran... 


Pour obtenir des variantes, on peut aussi essayer les 
adresses 183, 1414, et 1415. 


(Il reste encore 12 284 possibilités de branchement 
dans la MEM... Tentez votre chance ! Ndir). 


Yves De Herdt 





TROIS PETITS PROGRAMMES POUR JOUER AVEC DE GRANDS 
NOMBRES 


Les trois programmes qui suivent comportent chacun 
3 lignes de BASIC. L'un calcule les grandes factoriel- 
les d'un nombre, l'autre les grandes puissances, quant 
au dernier, il donne le quotient d'une division déci- 
male connaissant le dividende (DVD) et le diviseur 
(DVS), avec un certain nombre de chiffre après la 


NCJ+1)=N(J+1)+0 :NEXT ELSE NEXT:FOR J=I. TO @ STEP-1 :1IF NCJ)=0 
NEXT ELSE IF J=L,END : REM 51 

FOR J=J TD @ STEP-1 : PRINT" "RIGHTS(STRS(P#+NCJ)), 3); 3 NEXT 
PRINT 3FOR J=@ TO L :NCJ)=NCJ)#N :NEXT PRINT N"! ="53 :GO0TO 2 
REM 6D 


virgule... Chacun d'eux est suivi d'un exemple d'exé- 
cution. 

a # + FACTORIELLES  * * * 

1 DEFINT J : L=30 : DIM NCL+1) # NCM)=1 : P=1ES : PRINT N"! ="; 
: REM 83 

2 N=N+1 :FOR J=0 TO L :1F NCJ)=)P, Q=INT(NCJ)/P) 2NCJD=NCJ)-Q#P 


A 


63 ! = O01 922 EU8 315 4U4 44 VE4 116 146 708 SEL EE 157 S4d 
773 690 227 268 EZE 106 779 599 612 729 753 600 00 00 000 00e 
Eh ! = 126 886 952 185 884 164 103 433 3SE9 SIS 161 4EO E02 SES 
516 174 S4S 192 198 801 894 775 714 704 250 400 O0 O0 00 A0Q 


er + * PUISSANCES + + # 

1 DEFINTJ :L=39 :DIM NCL+1) :M=1 :P=1ES :INPUT N :NCG)=N: GOSUB 3 
: REM Ei 

2 PRINT:FOR J=B TO L:NÉJ)=NCJ)#N:NEXT: GOSUB 3:1F N(J))@ RUN ELSE 
: FOR J=L TO @ STEP-1:IF NCJ)=W, NEXT ELSE M=M+1:PRINT N°T°"M" =" 
: FOR J=J TO @ STEP-1: PRINT" “RIGHTSCSTRS(P4+NCJ)), 3) 5 :NEXT: GOTO2 
: REM 1D 
3 FOR K=0 TO L : JF NCK)=)P THEN G=INT(NCK)/P) : NCKI=NCK)-P#Q 

5 NCK+1)=NCK+1)+0 : NEXT:RETURN ELSE NEXT:RETURN : REM 67 

2 + 9 = 316 912 650 Q57 057 350 374 175 SO1 544 

2 +93 = 633 825 00 114 114 700 748 Z51 602 688 

2 + 109 = U01 267 ESO 600 228 229 491 496 703 205 376 

Z + 101 = VOZ 535 T01 200 456 458 902 993 406 410 752 
|: 0e +* * *# DECIMALES + *# 

1 DEFDBL N;,M : INPUT"DVD'"3;N : PRINT, CHR$#(27)"/ "53 3 INPUT"DVS":M 
: REM SC 
2 G=INT(N/M) 3 NEN-G#M : P=1ES : PRINT, , CHR$(27)" = " Q "," 

: REM 1F 
Z Q=INT(N#P/M) :N=N*P-O4+M 2: PRINT RIGHTSCSTR$(G+P), 5)" "3 2:GOTO 3 
: REM SE 


RUN 

DVD? 3141359265 / DVS? 2718268183 = 1 ; 

155 727 347 815 145 422 709 S$87 443 697 844 972 903 343 138 632 
538 333 966 643 922 274 976 174 931 795 059 675 618 697 712 444 
334 736 255 A70 358 175 LED 7281 233 384 840 W11 256 MES 189 441 
S63 533 535 446 543 451 309 461 903 734 978 WE1 491 144 205 602 


Jean Mevel 
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step 





STEP -1 





Cette rubrique est destinée (comme son nom l'indique 
aux programmeurs BASIC que vous êtes !) à apporter 
des précisions, des améliorations ou à corriger des 
erreurs concernant les articles ou programmes des nu- 
méros précédents. Elle est née et sera alimentée en 
grande partie par vos lettres. Aussi, ne vous en pri- 
vez pas ! Merci. 


COURRIER DES LECTEURS / TRACE n° 7, page 10 


DISQUETTES TRACE SUR MODELE 3 AVEC NEWDOS80 V2. 

Nous avons oublié de spécifier un point important 
pour relire une disquette Trace sur modèle 3 avec 
NEWDOS-80 V2 : la commande WRDIRP qui permet de réé- 
crire la directory de la disquette selon les spécifi- 
cations du contrôleur floppy employé sur le modèle 3 
(différent de celui du modèle 1). Nous résumons donc 
ci-dessous les différentes manipulations à effectuer 
en partant du principe que NEWDOS-80 V2 est sur l'u- 
nité O0 et la disquette Trace sur l'unité 1 (les 2 dis- 
quettes doivent être déprotégées en écriture) 


PDRIVE,0,1,TI=A,TD=A,TC=35,SPT=10,TRS:=3, 
GPL=2,DDSL=17,DDGA=2,A 


WRDIRP,1 


Après exécution de ces deux commandes, toutes les 
opérations (DIR, COPY, etc.) deviennent possibles 
sur la disquette Trace. 


Le programme de listage des mots-clés comporte une 
lcoqurbler AT Faut Lire EENT2 TE pt 


Equipé d'un TRS modèle 3 non sonorisé, je propose 
l'une des solutions suivantes pour remplacer le "bip" 
de fin de ligne. 


- Une règle de longueur JL, graduée de 5 en 5, à con- 
server sur 2 lignes "non scroll" en haut d'écran. 
Ajouter alors la ligne : 


1125 CLS : POKE 16916,2 : PRINT STRING$(JL,45) : FOR 
K=0 TO JL+1 STEP 5 : PRINT TAB(K) CHR$(33); : NEXT 
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et débuter la ligne 1130 par "PRINT : JP=..." 


— Un signal optique (un «4 par exemple), apparaissant 
5 caractères avant la fin de ligne. En ce cas, con- 
server : 


50 IF N=-JL-5 GOSUB 630 
et remplacer la ligne 630 par : 
630 PRINT TAB(N) CHR$(35); : RETURN 


Noël Lhomme 


Avec les modifications suivantes, l'utilitaire Baspy 
peut accepter les nombres décimaux dans les commandes 
D, E et R, si ils sont précédés de l'identificateur 
4, Il suffit de remplacer la ligne 4220 par : 


04220 HEXBIN LD  A,(HL) 


04221 INC HL 
04222 CP 1+! 
04223 JR Z, DECBIN 
04224 DEC HL 
04225 LD DE,OFFFFH 


puis, pour initialiser le programme, de remplacer : 
SYSTEM */31534 par : SYSTEM */31541. 


Antoine Joux 


Les mots de passe "partout" pour TRS-D0S 1.2 sur mo- 
dèle 3 étaient erronés et sont à remplacer par : 


OTIS , PNEUW , RATPD 


Dans les versions 1.3 ou 1.31, TRS-DOS ne permet plus 
(1e malin !) d'utiliser un mot de passe universel. 


Pour fonctionner sur ce modèle (à 500 bauds seulement), 
le programme est à modifier comme suit : 


- ligne 130 DATA 205,232,49 REM CALL 31E8H 
- ligne 140 DATA 243 : REM DI 


Roger Buvat 


TRAITEMENT DE TEXTE (ENCORE LUI !) TRACE n° 5 et 6 


Les modifications qui suivent sont destinées à per- 
mettre au programme de traitement de texte d'imprimer 
des caractères accentués et des lignes de titre en 
caractères dilatés sur l'imprimante Seikosha GP-80M. 
Dans le texte, les caractères accentués seront repé- 
rés par leur lettre suivie d'un chiffre, selon la 
codification suivante : 


Accent aigu 


Accent circonflexe .......... 3 
TRÉRA en ee ne 4 
CÉRENTE ess emerscer 5 


La ligne 12 appelle la sous-routine 5900 pour définir 
le graphisme des caractères accentués. En 360, la 
sous-routine de détection avant impression des carac- 
tères accentués est appelée. De 4020 à 4060 : recher- 
che de la lettre. De 4100 à 4520 : recherche du chif- 
fre définissant l'accent. Avec ces modifications, l' 
impression est évidemment ralentie... Il est alors 
utile de trouver des programmes compilateurs comme 


Accent grave 





Accel 3. 


11 DIMJWC28) 
12 GOSUB5966 

334 INPUT'NOMBRE DE LIGNES TITRES < 49 LETTRES/LIGNES MAXI >1W="; IW: IF IW=@THENS4 
() 

335 FORI=OTOIW-1: INPUT "N# DES LIGNES TITRES"; JW I ):NEXTI 

359 FORI=1TOM: IFK1=1LPRINTUSING"### : "5 1; 

355 FOR J=OTO1W-1:1F1=JWCJ)THENKWE=1 

356 NEXTJ 

357 1FKW=1THEN365 

369 LPRINTTABC MA >; CHR 15 >; : GOSUB3000 : LPRINTCHRSC 15 >: GOTO366 

365 LPRINTTABC MA ); CHRSEC 14; SC 1 >: LPRINTCHREK 15) 

366 KH=G:NEXTI 

3606 LXx=LENC S€ I 2-1 
3962 FORJ=1TOL4+1 
3605 W$=HIDSC SCI », J, 1 >: WeeVALCMIDECSC I 3, J+1, 13) 

3019 IFHX=OTHEN3915ELSE3016 
3615 LPRINTWS; : GOTO3629 
3616 GOSUB4520 

3617 LPRINTCHR#C 15 ); 

3026 NEXTJ 

303 RETURN 

4929 1FHS$=CHR#C97 THEN4100 

4925 1FH#=CHR$C 99 )THEN4150 
4630 1FH&=CHRS& 191 )THEN4266 
4048 IFH$=CHREC 105 )THEN4390 

4950 1FU$=CHR&C 111 )THEN4400 

4069 IFH#=CHRE 1 17 DTHEN45GD 
4879 LPRINTHS; : RETURN 
4198 IFHX=2THENLPRINTAZS; : J=.J+1 : RETURN 

4114 IFUX=3THENLPRINTA3S:; : J=.J+1 : RETURN 

4156 IFHX=STHENLPRINTC?$; : J=J+1 : RETURN 

4266 IFWX=1THENLPRIHTES; : J=.J+1 : RETURN 

4214 IFWX=2THENLPRINTEO; : J=J+1 : RETURN 

4220 1FWX=3THENLPRINTES$ ; : J=J+1 : RETURN 

4230 1FHX=4THENLPRINTE4$; : J=J+1 : RETURN 

4309 IFHX=3THENLPRINTI3%; : J=J+1 : RETURN 

4310 1FWX=4THENLPRINTI48; : J=J+1 : RETURN 

4488 IFHX=3THENLPRINTO3$; : J=.J+1 : RETURN 

4500 IFHX=2THEHLPRINTU2%; : Js.J+1 : RETURN 

451Q IFWX=3THENLPRINTU3$ ; : J=.J+1 : RETURN 

5960 AZS<CHRSCS D+CHREC 128 2+CHR$C 166 )+CHRSC 213 +CHRSC 214 +CHRSC 188 D+CHRSC 192 +CHR 
$C128):REMA ACCENT GRAVE 

5910 A3=CHRECS D+CHRÉC 128 3+CHRSC 160 D+CHR&C 214 DHCHRAC 213 3+-CHRSC 190 D+CHRSC 192 )+CHR 
$(1289:REMA ACCENT CIRCONFLEXE 
5930 E1$=-CHR$< @ >+CHRSC 128 )+CHRSC 184 D+CHR$C 212 )+CHRSC 214 D+CHRSC 213 3+CHR$C 208 2+CHR 
#(1289:REM E ACCENT AIGU 
5949 E2$=CHR$C 3 D+CHRSC 128 D+CHRSC 184 )+CHRSC 213 )+CHRSC 214 H+CHRSC 212 )+CHRSC 200 >+CHR 
$C1299:REM E ACCENT GRAVE 

5959 E3$=CHRÉC 8 )+CHRSC 128 D+CHRSC 184 HHCHRSC 214 3+CHRSCZ13 3+CHR8C 214 +CHRSC 296 )+CHR 
$C128):REM E ACCENT CIRCONFLEXE 

5969 E4$=CHRÉ 8 )+CHREC 128 +CHRSC 134 D+CHRSC 213 +CHRSE 214 >+CHREC 213 3+CHRSC 298 D+CHR 
$(128):REM E TREMA 
5970 13$=-CHR%CS »+CHRÉC 128 D+CHRSC 198 >+CHRSC 253 H+CHRSC 194 )+CHRSC 128): REM I ACCEHT 
CIRCONFLERE 

5990 148-CHR$C 8 >+CHRSC 128 +-CHRSC 197 +CHRSC 252 +CHRSC 193 )+CHRSC 128 :REM I TREMA 
6096 03$=CHR$CS >+CHRSC 128 D+CHREC 188 H+-CHRSC 198 D+CHRSC 197 3+CHPSC 198 )+CHRSC 188 )+CHR 
$(123):REM D ACCENT CIRCONFLEXE 

6198 U2$=CHREC 9 +CHRSC 128 +CHRSC 188 D+CHRE 193 +CHRSC 194 3+-CHREC 188 2+CHRSC 192 )+CHR 
$C128):REM UJ ACCENT GRAVE 

6119 U3$=CHRS£ 3 )+CHRSC 128 +CHRSC 188 >+CHRSC 194 +CHRSC 193 +CHRSC 196 D+CHRSEC 192 }+CHP 
#(128):REM LU ACCENT CIRCONFLEXE 
6208 C7H=CHREC 8 )+CHRSC 128 )+CHRSC 152 D+CHRSC 164 D+CHREC 228 CHR 185 HHCHRSC 164 +CHR 
#0 1283:REM C CEDILLE 

7866 RETURN 


TRACE N° 8 - Mars 1984-11 


Philippe Arques 








TRANSFERT DE CONVERT ET DE 

XFERSYS SUR MODELE 3 AZERTY 

Comme cela a déjà été signalé, ces 2 utilitaires ne 
sont pas toujours fournis sur la disquette TRS-DOS 
version 1.31 correspondant au clavier AZERTY. Pour- 
tant, CONVERT est nécessaire pour lire une disquette 
modèle 1, telle que celle de TRACE par exemple, en 
raison des différences de densité et d'organisation 
du catalogue (directory). Ces programmes étant pro- 
tégés, voici une méthode permettant de réaliser leur 
transfert, mème avec une seule unité, et aussi bien 
sur le modèle QUERTY que sur l'AZERTY. 


- Sous Disk BASIC, lancer le programme suivant 


10 FOR I=(&H8040) TO (&HB04B) : READ J : POKE I,J 
NEXT 
20 DATA 33,0,82,17,0,112,1,64,16,237,176,201 


- Tapez ensuite : 

CMD " s" 

puis 

DUMP TOTO/CMD (START=8040,END-804B,TRA=8040) 


- Introduire la disquette TRS-DOS version 1.3 (pour 
clavier QWERTY) et taper 


LOAD CONVERT /CMD 


- Placer ensuite la disquette contenant le "reloca- 
teur" TOTO/CMD et lancer ce programme 


TOTO 


- Monter alors la disquette TRS-DOS version 1.3I (pour 
clavier AZERTY et taper : 


DUMP CONVERT/CMD (START=7000,END=803F,TRA=5200) 
puis enfin : 
RELO CONVERT/CMD (ADD=5200) 


On pourra procéder de la même façon pour XFERSYS, les 
adresses étant identiques, avant de "remercier" TOTO 
en le supprimant de la disquette... 


Roger Buvat 


Sur TRS modèle 1 et dans le cas d'un programme comme 
par exemple "casse briques" publié dans le numéro 6 

de TRACE, on peut commander le départ de la balle par 
un bruit... plutôt que par l'appui sur une touche, ce 
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qui a toujours pour effet d'étonner les invités ! Il 
suffit, dans le cas du programme cité plus haut, de 
remplacer la ligne 300 par : 


300 IF INP(255) > 127 THEN NC=NC+1 GOSUB 390 


Ouvrir alors le couvercle du cassetophone, presser 
l'ergot situé au font à gauche et appuyer simultané- 
ment sur les touches RECORD et PLAY. Penser aussi à 
retirer la fiche AUX. 


Christophe Schlick 


Après avoir (laborieusement) chargé Edtasm+ à partir 
de la cassette, vous l'avez bien sûr, enregistrée sur 
"wafer" par la commande "3SAVE1, 17280, 12093, 17280". 
Par la même occasion, vous avez aussi enregistré 
“Stand Alone Z-Bug" par : "2SAVEZ, 17280,6125,17280". 
Voilà déjà un progrès considérable qui vous permet de 
charger votre assembleur favori en quelques secondes. 
Mais cela ne suffit pas : il faudrait aussi pouvoir 
sauver les programmes source sur "wvafer"... 

Pour ce faire, il suffit de savoir que le programme 
source débute à l'adresse 29217 (25854 si Z-Bug a été 
"quashé") et que la première adresse disponible après 
le programme source (valeur du "first! obtenue sous 
éditeur par la commande *Q) est contenue dans les mé- 
moires 1232H et 4233H (poids faibles, poids forts), 
soit : 16946 et 16947. La longueur L du programme 
source est donnée par "first" en décimal moins 29217 
(moins 25854 si Z-Bug "quashé"). Pour sauver sur wafer 
un programme source, il faut donc : 


- revenir au BASIC (commande #*B) 

- réactiver l'ESF (SYSTEM /12345) 
- faire : d SAVE(n),16946,2,6681 

- faire : ® SAVE(n+1),29217,L, 17283 


Le retour en 6681 (1A19H) redonne le contrôle au BA- 
SIC lors du chargement. Si Z-Bug a été "quashé", la 
seconde commande SAVE devient SAVE(n+1),25854,L, 
17283. 

Pour charger un programme source sous EDTASM+ (apres 
chargement de EDTASM), retour au BASIC par *B et ré- 
activation de l'ESF), il suffit de faire :'à LOAD(n) 
et 2 LOAD(n+1). 

La sauvegarde sur wafer d'un programme assemblé "in- 
memory" se fait de la façon classique : à SAVE(n),adr 
1,18,adr2 ou adr1 est l'adresse origine du programme 
(ORG), 18 sa longueur en octets, et adr2 son adresse 
de lancement. 


_—_—_——_—_—apa_aLaZaaLcaZccaaa me = OV 


essai matériel 





Le TRS-80 modèle 4 








Le TRS80 modèle 4 est un ordinateur monobloc sembla- 
ble au modèle 3, comprenant un clavier complet AZERTY 
avec 2 couches inédites (CTRL et CAPS), un "pad"! nu- 
mérique (touches 0 à 9, point décimal, touche ENTER) 
et trois touches de fonctions (F1, F2, F3). Un écran 
vidéo vert haute résolution de 30 cm de diagonale lui 
permet d'afficher soit 16 lignes de 64 caractères soit 
24 lignes de 80 caractères. Un emplacement est prévu 
pour recevoir deux minidisquettes 5 pouces 1/4 avec 
leur alimentation. Reprenant sous une couleur blanche 
la carrosserie du modèle 3, il possède comme lui un 
bouton "RESET" encastré à côté du clavier numérique, 
des commandes de luminosité et de contraste (sous le 
bord gauche du clavier) et un interrupteur de tension 
(sous le bord droit du clavier). 

Le TRS80 modèle 4 est disponible selon trois configu- 
rations 


- 16 k / Cassette (fonctionnement sous mode Modèle 3) 

- 64 k / 1 disquette 184 k / TRSDOS version 6 (horlo- 
ge 4 MHZ) 

- 64 kK / 2 disquettes 184 k / TRSDOS version 6 (hor- 
loge 4 MHZ) 


et peut se voir ajouter : 


- une imprimante parallèle 

- deux disquettes extérieures 

- une interface RS232 

_- une carte haute résolution (153600 points, 240 x 640) 
- un disque dur 

- 64 k de mémoire RAM (portant le maximum à 128 k RAM) 


Sous l'appareil sont disposées des ouvertures recevant 
les câbles de liaison avec les périphériques : impri- 
mante parallèle, minidisquettes additionnelles, RS232, 
interface BUS (pour la carte graphique par exemple). 

La prise DIN pour le cassettophone est située à côté 

de la prise d'alimentation secteur, seule prise reliant 
l'ordinateur au courant domestique. 


Sur son simple aspect extérieur, le modèle 4 semble 
donc n'être qu'un modèle 3 superficiellement modifié, 
une sorte de "Modèle 3e"...!! En réalité, il n'en est 
rien comme nous allons le voir plus loin. 


En ouvrant le carton contenant le matériel, vous trou- 
verez (en France) 


- Un modèle 4 avec clavier AZERTY 

- Un manuel (en anglais !) du Système d'Exploitation 
de Disquettes 

- Une carte de référence BASIC & SED (en anglais !) 

- Un manuel (en anglais !) d'initiation au BASIC des 
modèles I/III (!1!!) 

- Un livret (en anglais !) de présentation pédagogi- 
que (2?) du SED et d'un programme d'application en 
BASIC (MAILLIST) 

- Une minidisquette SF/DD kOp. contenant le SED. 


C'est tout de même assez maigre et inadapté, d'autant 
plus que les manuels sont érronés et/ou incomplets et 
que manque toujours le manuel technique, indispensa- 
ble pour une programmation des entrées/sorties ou en 
assembleur. 

Tandy assure que les traductions sont en cours mais 
demeure assez discret sur le suivi du SED et la dis- 
ponibilité du Technical Reference Manual (pourtant 
très bien conçu !!! je l'ai lu !!!). 


Le SED et la documentation du modèle 3 ne sont pas 
fournis avec le modèle 4 et donc, seuls ceux possé- 
dant déjà ces "matériaux" pourront bénéficier de la 
totale compatibilité entre ces deux systèmes. 
Initialisé avec un SED modèle 3, le TRS80 modèle 4 

se comporte exactement comme un "vrai" modèle 3 dis- 
posant de ses 14 k de ROM et de ses 48 k de RAM (hnor- 
loge 2 MHZ). En fait, il y a quelques changements dans 
les ROM comme le montre très bien le programme (MEM- 
TEST) du TRSDOS 1.3 mais ces modifications sont jus- 
tement celles qui permettent au modèle à d'être, au 
choix, un modèle 3 ou un modèle 4. 


A la mise sous tension le TRS80 -4 est en fait un mo- 
dèle 3 dont seule la ROM C a été modifiée pour auto- 
riser l'initialisation vidéo. Lors du démarrage du 
SED un "disk bootstrap loader" lit le secteur 1 de la 
piste 0 en RAM ; ce secteur contient un second "boot- 
strap loader" (BOOT/SYS) et ainsi une disquette modèle 
3 s'initialise parfaitement. Pour le TRSDOS version 

6, BOOT/SYS comprend un chargeur complémentaire qui 
initialise les 64 k RAM, réalise les modifications 
vidéo, et "déconnecte" les ROM modèle 3. 


Tous les tests de disquettes modèle 3 sur modèle 4 en 
mode modèle 3 que j'ai pu effectuer se sont révélés 
positifs, y compris pour des programmes comme SU+,Vi- 
sicalc,...etc. Par contre, sous mode modèle 4, c'est- 
à-dire après chargement en RAM du TRSDOS version 6, 
les programmes modèle 3 ne sont plus acceptés, du fait 
des différences importantes entre les BASIC, de l'ar- 
chitecture même du modèle 4 et de l'environnement vi- 
déo. 

En mode 4, le SED comme le BASIC sont entièrement en 
RAM. On ne peut plus effectuer les classiques PEEK et 


POKE pour l'écran ou le clavier ni appeler des routi- 
nes en ROM !!! 


Le BASIC Microsoft 01.00.00 qui n'est pas sans rappe- 
ler celui de l1'IBM/PC, comprend de nouvelles instruc- 
tions mais, dans le même temps, ne supporte plus cer- 
tains mots-clés présents dans le BASIC modèle 3. 
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MOTS CLES NON SUPPORTES 


RESET SET CMD CLOAD 
CSAVE POINT 


MOTS CLES SUPPORTES DIFFEREMMENT 


SYSTEM RESTORE CLEAR PRINT @ 
VARPTR PRINT TAB THEN 


En attendant l'extension graphique haute résolution 
(640 x 240) et son BASIC graphique, les commandes SET 
et RESET n'existent plus et leur suppression n'est pas 
précisée dans le manuel du modèle 4. La nouvelle com- 
mande PRINT @ (ligne, colonne) permet toutefois de 
"simuler" ou palier l'absence de SET/RESET : 
Ex : Trace d'un bord d'écran 

1 ! demo 

5 CLS 


10 ?3(5,10),"DEMO INSTRUCTION (PRINT® (LIGNE, COLONNE) )" 


15 %(7,5) ,"LISTING :" 

17 (9,5) ,"FOR I = O TO 79 :9? (O0,I),CHR$(191);:? 
2(22,1),CHR$(191);:NEXT" 

18 ?2(10,5),"FOR I= O TO 22 : ?9(I,0),CHR$(191);:?0 
(I,79),CHR$(191);:NEXT" 

20 FOR I = O TO 79 : #(0,I),CHR$(191);:20(22,1),CHR$ 
(191);:NEXT 

30 FOR I = O TO 22 : ?a(I,0),CHR$(191);:?2(1,79),CHR$ 
(191);:NEXT 

40 

50 %(23,0),"TAPEZ (BREAK) POUR ARRETER ..."; 

60 GOTO 60 


La suppression des commandes CLOAD et CSAVE tient au 
fait que le modèle 4 sous TRSDOS version 6 ne suppor- 
te pas les entrées/sorties cassette, sauf via l'uti- 
litaire TAPE100/CMD et pour la liaison avec le TRS 
modèle 100. De 1à une redéfinition complète de la com- 
mande SYSTEM qui vient remplacer la commande CMD. 


MOTS CLES NOUVEAUX OU SUPPORTES DIFFEREMMENT 


CALL CHAIN CLEAR COMMON DATES ERASE ERR$ 

HEX$ INPUT$ LPOS  OCT$ OPTION PRINTà PRINT TA 

RON SPACE$ SPC SW AP SOUND SYSTEM VARPTR+# 

WAIT WHILE/WEND WIDTH VWRITE WRITE # 

CALL * Permet d'appeler un programme en langage 
machine et de lui transmettre des para- 
mètres. 

CHAIN : Permet de chaîner des programmes BASIC 


avec diverses options de passage de va- 
riables ou de fusion. 

CLEAR : Le M4 effectue une allocation dynamique 
de l'espace mémoire et CLEAR n'intervient 
alors que pour définir une adresse mémoi- 
re et l'espace réservé par rapport à cet- 
te adresse. 


COMMON : Permet le passage de variables lors d'un 
CHAIN ou MERGE. 

DATES : Retourne la date d'initialisation. 

ERASE : MEfface" les variables spécifiées. 

ERR$ : Retourne la dernière erreur SED. 

HEX$ : Donne la valeur HEXA d'un nombre décimal. 

INPUTS$ : Accepte une chaîne d'un nombre spécifié 


de caractères depuis le clavier ou un 
fichier et n'affiche pas les caractères 


lus. 

LPOS : Retourne la position courante de la tête 
d'impression imprimante. 

OCT$ : Donne la valeur octale d'un nombre déci- 
mal. L 

OPTION : Définition du plus petit indice pour les 
données en tableau. 

PRINT ® : Existe sous la forme classique PRINT® 


(position) mais aussi sous la forme PRINT 
è(ligne,colonne) - cf listing. 


PRINT TAB Idem M3 mais exploite les chiffres supé- 
rieurs à 79. 
ROW : Retourne la position ligne courante du 


curseur. 
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SPACES : Génère une chaîne d'un nombre spécifié 


d'espaces. 

SPC : Génère des espaces. 

SW AP : Echange des contenus de 2 variables. 

SYSTEM : Remplace CMD. Permet sous BASIC d'appe- 
ler des commandes SED. 

VARPTR : Retourne la valeur adresse mémoire d'un 
buffer. 

WAIT : Suspension de l'exécution d'un programme. 

WHILE/WEND : Effectue une série d'opérations dans une 
boucle. 

WRITE : Ecriture sur l'écran. 

WRITE + Ecriture dans un fichier séquentiel. 

SOUND : Non documentée, cette instruction permet 


de générer, sans adjonction d'un amplifi- 
cateur, un son de tonalité et de durée 
programmables. Ex : SOUND1,1 (la hauteur 
de la note est définie par un chiffre 
entre 0 et 7 et la durée par un chiffre 
entre O0 et 31). 

Ex : Gamme des sons 


1 ! demo 
Scis 
10 ?2(0,5),"Vous allez entendre les SONS produits par 
le modèle 4" 
20 FOR I = O TO 7 
30 SOUND I,0 
4O NEXT 


Si le nouveau BASIC 01.00.00 constitue l'élément le 
plus évident d'incompatibilité entre le M4 (sous mo- 
de M4) et le M3, c'est en fait l'architecture en 
RAM qui en constitue l'élément le plus essentiel et 
en même temps, la grande nouveauté du modèle 4. 


Le TRSDOS version 6, issu du LDOS 5.1.4 et les SVC 


‘'appels superviseurs' feront l'objet d'un prochain 


article. 


En attendant, et pour "jouer", voici de quoi changer 
votre curseur clignotant et protéger contre le défi- 
lement les lignes supérieures de votre écran. 


0 ‘Modification du curseur : 
1 J=0:DIM UV#%(9):UV#(0)=15872:UV#(2)=8448:UVYA( 4)= 
4352: UV#(6)=256:UVX(8)=239:UV#(9)=201 
2 ' CETTE LIGNE 1 INITIALISE LES APPELS SVC. 
3 ' ELLE NE DOIT PAS ETRE RELANCEE 
5 INPUT "QUEL CARACTERE (1-255) ";X 
10 UV#(1)=15:UVX(7)=CVI(CHR$S(X)+CHR$(8)) 
20 GOSUB 100 
30 CLS: ?2(10,10),"Voilà qui est fait... (BREAK) pour 
arrêter ";: GOTO 5 
100 DEF USRO = VARPTR (UV#(0)): J%=USRO(O): RETURN 


O0 ‘Protection contre le défilement 

4 ! Reprendre les lignes 1 et 100 du programme 
précédent 

5 INPUT "Combien de lignes ( O - 7 ) ";x 

10 UV#(1)=15:UV#(7T)=CVI(CHR$S(X)+CHR$(7)) 

20 GOSUB 100 

30 CLS: ?2(X+1,5),"Voilà qui est fait..."; 

35 FOR I = 1 TO 100 :? "Pour supprimer cette protec- 
tion répondez (0) à la demande ":next" 

40 Goto 5 

100 'Gosub avec DEFUSRI ou 2 


Enfin pour les curieux du clavier AZERTY qui compren- 
draient mal l'utilisation du préfixe O0 dans l'affi- 
chage des codes graphiques voici de quoi réaliser cet 
affichage : 


10 ‘Affichage des codes du TRS à tester ensuite avec 
11 ‘les commutateurs CHR$(21) et CHR$(22) 

20 dim a(255) 

30 for i = 1 to 255 

40 a$(i) = chr$(0)+chr$(i) 

SONT RAS) next 

60 goto 60 
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coup d'œil 





Et si on parlait un peu 
du modèle 100? 








Le Modèle 100 portable de Tandy est une petite machi- 
ne révolutionnaire à plus d'un titre. L'habitude de 
l'écran magique incorporé (ou non) aux ordinateurs 
individuels fait souvent considérer avec une moue dé- 
daigneuse cette petite "calculette" qui ne paie vrai- 
ment pas de mine. Que les vrais initiés gardent pour 
eux ce secret : le modèle 100 démode complètement les 
vieilles guimbardes aux fils qui traînent partout, à 
la mémoire défaillante et à l'encombrement qui fait 
pousser les hauts cris aux maîtresses de maison sou- 
cieuses du bon ordonnancement de leur cher foyer ! 


Car enfin, il n'est rien que ne puisse faire le modè- 
le 100 ! Avec 24 K octets il dépasse en performances 
tout ce que l'on peut imaginer, et n'a aucun rapport 
avec les "poquettes", si modernes soient-elles... Et 
son écran de 40 x 8 (320 signes), ou encore ses 239 

x 63 (15057 pixels adressables individuellement), rem- 
place avantageusement les écrans des modèles de table. 
(Quand avez-vous eu besoin pour la dernière fois, de 
plus de 8 lignes de 40 signes sur votre écran ?). 


Travailler dans le train ou sur sa table de jardin, 
puis rentrer chez soi pour établir un listage ou des 
étiquettes-adresses, sans être rivé à un poste fixe, 
cela fait repenser le problème informatique. Le maté 
riel qui vous suit partout ne vous coupe plus de votre 
vie de famille, et les performances sont aussi bonnes 
qu'avec un modèle cinq fois plus gros... 


DES AVANTAGES INCOMPARABLES POUR LES HABITUES 
DE L'ORDINATEUR 


LES PROGRAMMES INCORPORES. Le programme de traitement 
de texte, bien qu'il soit rudimentaire, a l'immense 
avantage d'être immédiatement prêt à l'emploi dès que 
vous mettez en route votre machine. Simple, rapide et 
performant, il vous épargnera dans bien des cas l'a- 
chat d'un Supercripsit, et amortira le coût du modèle 


100. On peut d'ailleurs améliorer cet éditeur et l'a- 
dapter au genre de machine que l'on possède. 


LES PROGRAMMES EN MEMOIRE VIVE. Eteignez votre modèle 


100. Reprenez-le le lendemain : vos programmes sont en- 
core là, exécutables dans la seconde qui suit... Quel 
progrès par rapport à ce que vous avez connu avec vo- 
tre vieux modèle 1 : charger la cassette, changer de 


programme, recharger la cassette, etc... Ici, plus de 
problème : vous accumulez en mémoire deux, cinq, dix 
programmes simultanés : seule, la capacité de la mé- 


moire vous arrêtera. 

Mieux encore, lorsque vous concevez un programme, il 
vous arrive de tâtonner puis d'y revenir le lendemain 
pour y apporter une dernière retouche. A chaque fois, 
que ce soit sur disquette ou sur cassette, vous devez 
répéter les opérations rituelles (CSAVE, CLOAD? ou 
SAVE "BIDULE/BAS:1) pour chaque retouche. Maintenant, 
plus de ces opérations fastidieuses : votre programme 
est en permanence en mémoire, et ce n'est qu'une fois 
que vous aurez définitivement terminé votre mise au 
point que vous pourrez passer à l'enregistrement sur 
cassette. De plus, pendant toute la durée de la mise 
au point, vous n'aurez pas eu à craindre la panne de 
courant ou les facéties de l'électricité statique qui 
venaient autrefois "planter" vos programmes. 


QUELQUES FONCTIONS INTERESSANTES. IPL vous permet, 


en allumant l'ordinateur, de mettre en route un pro- 
gramme automatiquement. SOUND x,y fournit des petits 
sons sur cinq octaves. TIME$ vous permet de stopper 
l'ordinateur à un moment donné, ou de passer à telle 
ou telle opération avec l'instruction "ON TIME$ GOTO" 
(ou GOSUB). KILL supprime un fichier, NAME le renomme 
et MERGE: chaîne deux fichiers... 


ET QUELQUES INCONVENIENTS FACHEUX... 


- L'absence de certaines instructions bien utiles 
comme TRON ou TROFF (qui permettent de suivre pas à 
pas un programme et de savoir où l'on s'est trompé) 
et DELETE, si pratique pour détruire quelques numéros 
de lignes parasites. 


- La "mémoire" des touches de la machine : si, à la 
question "appuyer sur enter", vous appuyez douze fois 
au lieu d'une, l'ordinateur gardera en mémoire les 11 
appuis excédentaires et exécutera les ordres en con- 
séquence. Au début, on est surpris... 


- Le fait que les TRS modèle 100 ne contiennent pas 

la même mémoire morte en Europe et aux Etats-Unis peut 
causer de gros problèmes si l'on suit aveuglément tel 
ou tel conseil donné par le manuel d'instructions 
(notamment pour redonner aux touches de fonction leur 
usage original...). 


- L'absence totale de logiciels. En attendant que le 
catalogue Tandy s'enrichisse, il ne reste plus qu'à 
les faire nous-mêmes... 


 ——  ——  _ _]—_ Petit, 
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technique 





Quelques PEEK et POKE 
pour modèles 


1, 3 et compatibles 





Pour répondre à la demande du "courrier des lecteurs" 
de TRACE n° 6, voici quelques indications sur les uti- 
lisations les plus fréquentes de PEEK et POKE appli- 
quées au TRS80 et Compatibles (VGS). 

Les utilisations ont été regroupées par types et ne 
prennent pas en compte les appels aux routines MEM. 
Sur ce point on se reportera à l'indispensable "Micro- 
soft Basic Decoded..." de J. Favour. 


0125H (293) : Test pour Modèle 1 ou 3. 
Si PEEK(293)=73, c'est un Modèle 3. 
Le même test sur un VGS-I donne 13 et non 73. 
Ce test, placé en début de programme, peut donc per- 
mettre d'aiguiller vers les instructions appropriées 
au même titre que les tests effectués pour déterminer 
si l'on a affaire à une configuration disque ou cas- 
sette. (Voir ci-dessous) 


37E1H (14305) : Sur le Modèle 1 cette adresse per- 
met la sélection de l'unité de disquette alors que 
sur le Modèle 3 on utilise le Port 244 (F4H). 
Une routine assez fréquente est celle qui consiste à 
justement sélectionner une unité pour la laisser en- 
suite en rotation entre les diverses opérations d'en- 
trées et de sorties. 
Pour ce faire, on teste également le statut du con- 
trôleur, à l'adresse 37ECH (14316) sur le Modèle 1 
(via le Port 249 (F@H) sur le Modèle 3. 
Cette routine est donc : 


Modèle 1 19 POKE 14395,1 
THEN 19 


Modèle 3 : 19 OUT 244, 1 


IF PEEK (14316) <128 


If INP (240) <128 THEN 1ÿ 


37E8H (14312) : Test du statut Imprimante. Ce test 
fonctionne aussi sur VGS (derniers modèles) bien que 
la documentation précise le Port 253. Ainsi, pour un 
VGS et une imprimante OKI 89%:"?PEEK(14312)" et "?-INP 
(253)" sont équivalents et les valeurs lues sont : 


Allumée + Off : 159 (9F) Allumée + On : 63 (3F) 
Éteinte + Off : 31 (1F) Eteinte + On : 63 (3F) 


L'adresse 4Y28H (16424) est située dans le bloc de 
contrôle (nombre de lignes/page) et est toujours ini- 
tialement positionnée à 67. 


3809H (14336) 

3BFFH (15359) Ces adresses sont celles du début 
et de la fin de la mémoire clavier. Les tests les plus 
usuels sont ceux effectués via les adresses 141429 et 
14406 pour les touches "flèches! 


Flèche en Haut = 8 Flèche en Bas = 16 
Flèche Gauche = 32 Flèche Droite = 64 


La "carte clavier" est donnée dans la Pratique du TRS 
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80 volume 3 (Editions du PSI). (Voir aussi dans ce mè- 
me numéro, l'article sur les différences entres les 
claviers QWERTY et AZERTY du Modèle 3 -Ndlr). 


3C90H (15369) 

2FFFH (16383) Ces adresses sont celles du début 
et de la fin de la mémoire vidéo (écran). 
Le Modèle 3 dispose d'une possibilité de protection 
contre le scrolling : on peut protéger 8 lignes (codes 
@ à 7) via l'adresse 4212H (16916). 
Le mode d'affichage de l'écran est testé à l'adresse 
16445 sur le Modèle 1 et 16912 sur le modèle 3 ; 


32 Caractères 64 Caractères 
Modèle 1 : TEST () 8 
Modèle 3 : TEST = 4g y4 


Pour passer en affichage 32 caractères, on peut donc 
éviter le CHR$(23) et POKER @ (ou 44) selon le Modèle. 
L'utilisation des Ports 255 (Modèle 1) et 253 (Modèle 
3) s'effectue suivant le même principe mais ne semble 
pas fonctionner corectement sur VGS. 


LGGCH (16396) Test Cassette/Disquette 
Si la réponse est 291, la configuration est à casset- 
te. Ce test a déjà été indiqué par TRACE mais le re- 
voici 


If Peek (16396) = 291 then Poke 16526,LS :Poke 16527, 
MS Else Defusr = L 

(LS=octet de poids faible, MS=octet de poids fort, 
L-adresse routine USR). 


*# Si les programmes intègrent systématiquement ce 
test ainsi que celui du Modèle il est possible de pro- 
poser des versions "multi-configurations", pourvu bien 
sûr que soient incluses toutes les variantes lorsque 
c'est nécessaire. 


. 4020H (16416) 
14O21H (16417) Adresse position curseur dans la 


mémoire écran. 


- BREAK 





La gestion de la touche BREAK se réalisera ainsi 


Level II adresse 16495 
Modèle 3 adresse 16396 
TRSDOS 2.3 
NEWDOS 2.1 


Si on POKE @ 
invalidée 
"Pokan 


la touche est 
s'effectue en 








4312H (17170) et 
nt" GC3H(195) et le 
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matériel 





Différences entre les claviers 


QWERTY et AZERTY 
du modèle 3 





Deux modifications essentielles interviennent 
- 1 au niveau de la matrice clavier, 
- 2 au niveau du pilote clavier en MEM. 


fdresses —> 








3880 
Ce [x | 0 | s-{enre |sur 
1 9 


CLEAR |SHIFT D. 





















































Clavier Azerty 
* + clavier numérique 











Etiquettes : 














Etiquettes : 











Etiquettes: : 








Etiquettes : 











tableau 3 


Les modifications intervenant au niveau du pilote 
clavier et de la matrice clavier sont dues 


- à la présence physique de 5 touches supplémentaires 


- à la répartition différente de ces touches sur le 
clavier. 





Les cinq touches supplémentaires correspondent au dé- 
codage des bits 3, 4, 5, 6 et 7 de l'adresse 3808. 


Clavier Azerty et pilote clavier Qwerty : Cette situa- 
tion se présente chaque fois que l'on utilise un pro- 
gramme machine écrit pour le modèle 3 Qwerty et qui 
possède son propre pilote clavier. (c'est à dire qui 
ne fait pas appel à celui de la MEM). Exemples : 
SCRIPSIT, VISICALC, PROFILE, EDTASM, RSM, etc. 


Plusieurs solutions s'offrent à nous : 


1. Faire l'acquisition des versions "Azerty" des pro- 
grammes qui ont déjà été convertis (à vrai dire, cette 
première solution ne s'offre pas à nous... mais s'a- 
chète !). 


2. Modifier les programmes concernés en recherchant 
les pilotes claviers et en les remplaçant par des 
Azerty (facile à dire, mais difficile à faire...) ou 
en "déviant" ces pilotes claviers, et en les rempla- 
çant par un appel à celui de la MEM (c'est ce qui a 
sans doute été fait par Tandy pour les programmes 
Scripsit et Visicalc... c'est très visible à l'utili- 
sation du Visicalc Azerty qui se retrouve avec une 
fonction de répétition des touches et de déplacement 
du curseur désespérement lente...) Solution encore 
pas à la portée de tout le monde. 


3. Reste une troisième solution (qui est la mienne et 
j'en ai un peu honte ...1!1!!) et qui consiste à repé- 
rer sur le clavier Azerty, l'emplacement des touches 
Querty ... et à coller de petites étiquettes. 

Le clavier numérique est alors "perdu" car remplacé 
par ! "=$%&"' ( )(tableau 3). 


Les touches repérées "W'" n'ont aucune action (ne 
sont pas décodées par le pilote du clavier Qwerty). 


Pilotes claviers : Les pilotes claviers Azerty et 


Qwerty possèdent la même adresse (3024H) mais sont 
différents... puisque des touches d'adresses diffé- 
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rentes dans la matrice clavier doivent retourner la 
même valeur ASCII (ce qui est encore heureux !). Un 
appui sur la touche Z par exemple, correspond : 


en Qwerty à un 4 à l'adresse 3808H 
en Azerty à un 128 à l'adresse 3804H 


Dans les deux cas, un CALL 2BH doit retourner la va- 
leur 5AK dans l'accumulateur. 


ATTENTION : Toutes les touches des deux claviers don- 
nent à la SORTIE DU CALL 49H les mêmes valeurs Hexa 
à l'exception de quelques unes...(tableau 4). 


De plus, en Azerty, on obtient des valeurs supplémen- 
taires correspondant aux minuscules accentuées, qui 
ne pouvaient pas être générées par le clavier Querty. 











L'utilisation d'un VU-METRE (*) ne suffit pas pour 
assurer une fiabilité totale à l'écriture-lecture sur 
cassettes. 


Certaines cassettes, mal enroulées au départ, 'voilent' 


lors de la première utilisation. Après rebobinage, le 


voilage disparaît généralement, mais la lecture recti- 
ligne d'un signal écrit en zig-zag donne des résultats 


désastreux. 


Le remède est simple. I1 suffit de faire un rebobina- 
ge total de la cassette avant la première utilisation. 


iIl faut également nettoyer périodiquement les têtes et 


les roulements à l'aide d'un produit du commerce ou 
simplement à l'alcool. 

Mais il faut aussi savoir que la plupart des ennuis 
attribués à un manque de nettoyage proviennent géné- 
ralement d'une simple poussière collée sur l'entrefer 


de la tête de lecture/écriture (la largeur de l'entre- 


fer est inférieure à 5 microns !}). 


Ces poussières sont aisément éliminées en passant le 
petit doigt sur les têtes (une chiquenaude suffit). 
Cètte manoeuvre est à faire absolument avant le char- 
gement d'une nouvelle cassette. Les professionnels 

de la HI-FI ne procèdent pas autrement ! 


Certaines cassettes salissent littéralement les têtes 
en y agglomérant des dépôts. Il en résulte que les 
images magnétiques des 'Q' et des '1' sur la bande 


(*) décrit dans TRACE n° 5. 
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1 

10 CLEAR 1000 : 

20 CLS + PRINT ‘ 

EMED 

30 FOR I a 672 
#0 CLS : ie 
EMAC 

50 F 

60 

7Ù 


QNERTY 
Shift clear 1FH 


Shift € 60H 
Shift ENTER ODH 





tableau 4 


Les différences entre les codes générés par la frappe 
de : Shift clear, Shift enter, Snift + €, sont dues 
au fait que la commutation majuscules/minuscules se 
fait par : 
Shift @ en Qwerty / Shift clear en Azerty. 
L'arrêt provisoire d'un programme s'obtient par : 
Shift © en Qwerty / Shift ENTER en Azerty. 


Christian Triguéros 





Mes expériences 
+. avec le CTR-80 





sont alors "floues", comme sur une photo mal focali- 
sée. Le signal lu est souvent très faible et déformé. 
Ces bandes doivent être impitoyablement rejetées, tout 
comme celles présentant des variations exagérées du 
niveau de lecture. 


Chaque cassette devrait être préalablement inspectée, 
comme on le fait pour les disquettes pendant l'opéra- 
tion du formatage. 


J'utilise à cet effet le court programme ci-après. 
Dans un premier temps, 70 chaînes de 240 ‘A! sont 
écrites sur la cassette en un peu moins de 10 minutes 
(à 500 bauds). Après rebobinage, le texte est relu et 
vérifié. Un STOP a lieu après chaque erreur, avec af- 
fichage du texte erroné. 


Pour une sélection sévère, le niveau de lecture est 
dès le début ajusté aux 2/3 du réglage habituel du 
VU-METRE. 


Lorsqu'une cassette passe le test, une autre cassette 
du même type, achetée le même jour dans le même rayon 
du même magasin le passe le plus souvent aussi. 


L'inverse est aussi vrai. C'est mon seul critère de 


choix. 


Un dernier conseil. Tracez au ‘tipp ex' un point blanc 
bien visible sur la graduation 6 du potentiomètre de 


volume ! 





$ 2:NEXT:REMSE ES 
AY => ENTER: ZE: R 











Roger Brousmiche 


essai matériel 





La carte HRC-80 
nous en fait voir 





Prix : 2 350 F ttc 
Distributeur : Micro-Influx, 20 rue Laennec, 
18330 Fontenay le Fleury 


CONFIGURATION NECESSAIRE : Modèle 1 ou 3, VGS, 16 à 
18 K, cassette ou disquette. 


J'attendais avec une impatience non dissimulée (comme 
bien d'autres utilisateurs du TRS 80, je suppose) l'ar- 
rivée sur le marché d'une carte d'extension graphique/ 
couleur donnant à mon TRS 80 modèle 1 une définition 
enfin digne de ses possibilités. 

Ce jour tant attendu est enfin arrivé un beau matin 

de septembre où j'ai pris livraison de la carte HRC 

80 commandée en juin 1983, et c'est avec une certaine 
fébrilité que j'ai procédé aux différents raccordements 
permettant de donner "Vie" au système. Ces connexions, 
au nombre de cinq, ne m'ont posé aucun problème 


1 — Alimentation 5 V 

2 - Sortie vidéo par prise DIN vers moniteur vidéo 

3 - Entrée vidéo par cordon DIN en provenance du cla- 
vier du TRS 80 

} - Bus de données par nappe vers connecteur "bus" du 
TRS 80 

5 - Cordon PERITEL pour liaison vers téléviseur cou- 
leur. 


Il est à signaler que dans la version de base, la car- 
te est livrée nue sans alimentation, avec la sortie 
VIDEO .N et B et le câble de raccordement carte-clavier, 
mais sans le câble PERITEL et le bus de données ; ces 
différents accessoires peuvent être cependant obtenus 
chez le distributeur moyennant un léger supplément de 
prix. 


Après avoir placé la disquette de démonstration dans 
le lecteur (une cassette est aussi disponible sur de- 
mande) et mis en route mon téléviseur couleur utilisé 
comme deuxième moniteur, j'ai pu admirer toutes les 
possibilités offertes par la carte HRC-80 : 


-Une résolution graphique de 320 points (horizontal) 
par 250 points (vertical), soit une capacité de 80000 
points pour l'ensemble de l'écran : on est bien loin 
du 128 x 48 = 6144 points de la version de base et 

les diagonales tracées sont maintenant de vraies droi- 
tes et non plus des "marches d'escalier" !!! 


de toutes 
les couleurs. 








- Une disponibilité de 8 couleurs simuitanées (noir, 
rouge, vert, jaune, bleu, magenta, cyan, blanc) à la 
fois pour le fond de couleur et le graphisme, soit 64 
combinaisons (bien sûr, toutes ne sont pas forcément 
heureuses !!!). Ces 8 couleurs sont disponibles même 
avec la définition graphique maximale de 80000 points. 





- La possibilité de mixer par instruction BASIC la 
basse résolution avec la haute résolution fournie par 
la carte HRC 80 et ceci par superposition d'images. 
Ceci présente l'avantage certain, par rapport aux sys- 
tèmes avec mixage intégré graphique-texte (ATARI-800, 
COMMODORE VIC-20, CBM64, etc), de pouvoir effectuer 
un aiguillage sélectif de l'image par programme, par 
exemple : le graphisme haute résolution sur le moni- 
teur couleur et le texte et le graphisme basse défini- 
tion sur le moniteur N et B de base du TRS 80. 
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Les utilisateurs qui ne possèdent pas de moniteur cou- 


leur peuvent aussi bénéficier de la haute résolution 


sur l'écran noir et blanc de l'ordinateur. Les couleurs 


seront tout simplement remplacées par des teintes dé- 
gradées (entre le blanc et le noir). Le texte et la 
basse résolution habituels seront alors superposés 
avec l'image haute résolution, ce qui assure une en- 


tière compatibilité avec tous les logiciels existants. 


- Le gros intérêt de la carte HRC-80 est qu'elle est 
fournie avec le logiciel correspondant de mise en oeu- 
vre du graphisme haute résolution, à savoir un BASIC 
graphique dénommé GBAS/CMD qui offre à l'utilisateur, 
grâce à 10 instructions d'emploi aisé (à part peut- 
être HGET et HPUT) l'accès à une programmation facile 
d'applications graphiques (sans avoir recours au code 
machine encore réservé à une minorité). Ces instruc- 
tions sont décrites succintement dans un manuel remis 
à l'utilisateur à la livraison de la carte, elles don- 
nent accès : 


- au choix de 4 modes d'écran (HDISP). 

- au choix de 8 couleurs de fond d'écran (HCLS). 

- au choix de 8 couleurs du graphisme (HCOLOR). 

. - au choix entre 2 pages graphiques (HPAGE). 

- au tracé de points, droites, rectangles, rectangles 
colorés (HPLOT). 

- au tracé de cercles (HCIRCLE) ou de huitièmes de 
cercles. 

- au test de la couleur d'un point graphique (HPOINT). 

- au transfert en mémoire graphique d'une image con- 
tenue dans un tableau entier (HPUT). 

- au transfert dans un tableau entier d'une image en 
mémoire graphique (HGET). 


Un petit regret cependant : ne pas disposer des ins- 
tructions de type PAINT et DRAN qui font tout le char- 
me de certains BASIC MICROSOFT (TRS-COLOR, DRAGON, 
SPECTRAVIDEO). Ceci n'est peut être que partie remise, 
puisque le code SOURCE GBAS/ASM est fourni avec la 
disquette et on peut ainsi espérer qu'un possesseur 

de la carte HRC-80 (en veine d'inspiration) "implémen- 


te" ces 2 instructions supplémentaires qui apparaîtront 


à beaucoup comme des nécessités à court terme. 


Bien d'autres ressources inexploitées sont cachées 
dans la carte HRC-80 ; elles ne demandent qu'à être 
révélées par un utilisateur friand de code machine, 
maniant avec aisance le langage assembleur du Z80 et 
connaissant la programmation du processeur graphique 
TEXAS TMS 3536, véritable cerveau de la carte HRC-80. 


Sans déflorer le sujet on peut citer les thèmes de 
réflexion suivants : 


- présence de À générateurs de caractères pro, 
de 128 caractères chacun (caractères inseri 
une matrice de 8 x 10). 
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- possibilité en utilisant ces générateurs de réaliser 
un affichage en mode VIDEOTEXT de 25 lignes x 40 ca- 
ractères. 


- disponibilité sur la carte HRC-80 d'une mémoire vive 
graphique de 64 K octets (2 pages graphiques de 30 K 
octets) utilisable peut-être en extension "mémoire 
virtuelle" des 48 Ko de la mémoire vive du système 
de base ? 


Alors, possesseurs du HRC-80, à vos plumes, vos cla- 
viers, vos fers à souder ! La tâche est rude mais le 
résultat est à la mesure de vos efforts. Ne broyez 
plus du "NOIR", l'avenir est maintenant couleur "ARC 
EN CIEL" ! 


En conclusion nous ne pouvons que souhaiter "longue 


vie" (en rose) à la carte HRC-80 qui présente un ex- 


cellent rapport qualité-prix et qui recèle encore au- 
tant de potentialités offrant la joie de la découver- 
te à l'utilisateur. 


NOTA : Certains utilisateurs d'anciens "modèles 1" 
devront procéder comme moi à une modification mineure 
à l'intérieur du clavier permettant à celui-ci de dé- 
livrer un signal VIDEO 50Hz et non plus 60HZ, faute 
de quoi la définition graphique de HRC-80 serait li- 
mitée à 320 x 210 =-67200 points au lieu de 80000 !!! 


MODIFICATION 60Hz — S50OHz 


1 - démontez votre clavier ; 


2 - repérez Z32 (circuit 7493) : de la broche du 
circuit partent une piste vers la gauche et une 
piste vers la droite (encoche du circuit posi- 
tionnée vers le haut). 

Suivez la piste de droite et coupez-la juste avant 
le trou métallisé. 


3 - soudez un fil faisant la liaison entre la broche 
8 de Z32 et ce trou métallisé (broche 2 de Z66). 


Votre TRS80 délivre maintenant un signal à fréquence 
trame égal à 50,08Hz utilisable par la carte HRC-80 
avec une pleine résolution graphique. 





minute : Nous apprenons que l'un des posses- 
: la carte HRC-80 vient de réaliser une fonc- 
ATNT" et en fait profiter les autres utilisa- 
Aussi, la version actuelle de l'extension 
délivrée maintenant avec cette nouvelle 





ct 





Q Do cr um 


Remy Pineau 


programmes 





Phases de la lune 





DATE : CJ,H,4) 7 


PHASE= 5,2 





Si l'homme va sur la lune, 
Avec le programme qui suit, nous ne vous proposons 
pas un voyage dans l'espace, mais tout simplement de 
visualiser sur l'écran de votre TRS le quartier de la 
lune tel que vous pourriez le voir dans le ciel, du 
moins si l'heure et les conditions météorologiques 

le permettent ! 


Aux environs de la nouvelle lune (phase proche de 
29,5 ou voisine de 0) il est difficile de l'aperce- 
voir car d'une part le croissant est petit et d'autre 
part la lune est proche du soleil et apparaît pendant 
la journée seulement. 


Pendant la pleine lune (aux environs de la phase 15) 
la lune est visible toute la nuit et l'éclairage qu' 
elle procure est maximum. 


Vers le premier quartier (phase 1 ou 8)}.eile brille 





c'est grâce aux ordinateurs... 


- Le programme présenté calcule la phase de la lune 
et le jour de la semaine pour une date donnée (jour, 
mois, année). Il trace ensuite le croissant de lune 

correspondant sur écran. 


— Il calcule d'abord le nombre de jours F depuis le 
début du calendrier grégorien suivant la méthode (ent 
() désigne la partie entière) 


Si mois< 2 alors mois = mois + 13 et année = année 

- 1 sinon mois = mois + 1.F = jour + ent (année x 365, 
25 + 0,1) + ent (mois x 30,6 + 0,01) - ent (année/ 
100) + ent (année/400) - 578164. 

0,1 et 0,01 servent à éviter le décalage d'un jour 
provenant d'une erreur d'arrondi. 


— La phase de la lune se calcule par rapport à une 
référence FO. Le jour FO, la nouvelle lune était à 
midi. 


On calcule successivement 


RES 
AH = 


(F-F0)/29,53 nombre de lunaisons depuis FO 
29,53 (AI - ent (AI)) phase de la lune 
- De manière analogue, 
AI = (F-F0)/7 
AH = 7 (AI - ent 


pour le jour de la semaine : 
nombre de semaines depuis FO 
(AI)) jour de la semaine 


- Le tracé de la lune est compris entre un cercle et 

une ellipse. Dans le programme, le cercle a un rayon 
. de 22 x 2,1 suivant l'axe horizontal et de 22 suivant 

l'axe vertical. 

Le coefficient 2,1 

hauteur sur largeur 


sert à tenir 
des 


compte du rapport 
pavés graphiques sur l'écran. 
Le rapport de dimension de l'axe horizontal de l'el- 


lipse et du cercle est cosinus (2Tx phase/29,53). 
Suivant qu'on est dans la Ilère ou 2ème moitié de la 


le soir tandis qu'au dernier quartier (phase 21 à 22) lunaison, le croissant est tourné vers la droite ou 
elle est présente le matin. la gauche (K = - 1 ou + 1). 
Î Fhase de la lune FF 
= {C) PhiliPrre Esclanson et TRACE j PE: 
3 ‘ Configuration : modeles 11 3: VGS. 16 a 48 K de RAM FD 
RE RE RSS SERRES RER SERRE ESS DIE 
# LS # DEFINT I-N : DIM Z#5(4) : V=iD : à7=7SREMED 
An 25 Van 6 AS Bd M'A I-AGEA AT SE S30S ES EE 
Lé&BS8:RENFE 
30 P1=3.14159 ?: IN=?? : J=IN+S : KO=463 = IR=IN#IN : CR=2.1:REM46 
&0 1#i1:="LUNDI 5: 2ZH(T2)= "MARDI" : 2Z$(3);= MERCREDI" : 2$(4)="JEU 
DI':REMIE \ 
SD 1$(5)= "VENDREDI" «= 7Z$(6)="SAMEDI" : 2$(10)="DIMANCHE"SREMCA 
EEE C& 
70 ‘ Debut du calendrier Cresorien : le 15 Octobre 13582 
0 ‘ corresveond a F=b: d'ou ualeur de AG 
SH Bë 
100 Fin du calendrier Gresgorien à: je 4 Gctobre 158? 
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Cat Foi be 
Re EN 

"1 
TOUTE 
| (Oo "4 


respond s Fz-i: d'ou valeur de âd 92 


sta 
D a Pt 
‘49 
Lous! 
EE 


à07"DATE : (j:Mz4) F5 5 PRINT 4157 °"73:REN9 


IH:316 s PRINT 830:CHRS(S1): : COSUR SOU:REMEL 
AI=8F/AT : AH=ST#CAI-INT(GAI)) = IH=INTIAH#V) : UHz 
(Us REMCD 
ÊI=AF/A7 : AH=R/#IBI 
PRINT 4: 2S(IHis à 
É 4 € 

Trace du croissant de lune 44 

38 

AC=COSUTEPIAUH/ATI : K=-1 3: IF UH»A1/2 THEN K=iSREMF3 
FOR IY=-IN TO INSREM73 
IM=INTICRES@OROIR-IY#IYi3 2 KV=KO-AC#IMEK : KHU=KD-IM&K : JjY=I 


=INT(AIDH : IH=INT(AH+D. 1) :REM4S 
FRINT Sé4: "PHASE="SUH3:REM6éD 


EX 2 vont | Em ns > Les | 


L 


U9 bu en D 0 CO 4 De ON 


MU ES PO Eee ps pen pa ea pu pau UT pe he 1 
ten fl cs (OX vs Va 


EORRVES 
+ 


SRE ECC ENE) 
GOTOQ 130: 


TEE 
D:REMEZ 


J 
{1 
EEE 


MA=IM+i:REMDO 


<= 
Æ 
ee 
e, 
Ca 
r% 
Fu 


—-Ii+IésRhREMIS 
ETURN2REMC 
JOUR N'°é Fàs 


10 JO ss Eu 


Ci Qi Gi 
He D Fit | 


RETURNSREMOF 





Philippe Esclangon 





Abonnez-vous 


a 


TRACE 


VOIR PAGE 5 
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propose en est la réplique plus ou moins exacte. Le 
principe est basé sur le célèbre jeu du pendu mais 
se joue à deux, sur deux tableaux différents, ce qui 
lui ajoute un intérêt nouveau. 





A l'origine, "BI-MOTS" est ci, à titre indicatif, l'utilisation des principales 
un jeu télévisé utilisé dans le variables : 
cadre de micro-defis par la RTBF 
(Radio Télévision Belge Francophone). 
Le programme que je vous 


A$, B$ : mots des deux joueurs. 

BH$, BV$, BO$, BC$, BX$, BN$, BM$, EF$ : utilisées 
pour les graphiques. 

C$, D$ : noms des deux joueurs. 

E$, G$ : dernière lettre entrée par les deux joueurs. 
J$, R$ : mot entré par un joueur mais qui s'adresse 


à l'autre. 
Après avoir demandé la longueur des mots à retrouver P1, P2 : points des deux joueurs. 
(de 6 à 9 lettres), l'ordinateur attend la proposition D : nombre de lettres des mots. 
de lettre du premier joueur. Ce dernier doit répondre W, Z : compteurs pour la descente des personnages. 
dans un temps donné matérialisé par un "baromètre" 
sur le côté de l'écran. Passé ce temps, le tour passe 
au second joueur. À chaque erreur, le "bonhomme" du Tel qu'il est, le programme possède un vocabulaire 
joueur respectif descend d'un cran... de 80 mots (20 mots de 6, 7, 8 et 9 lettres). 
Le programme occupe environ 13 K de mémoire vive mais À vous de jouer (et vite car l'ordinateur n'attend 
il peut être réduit en retirant les commentaires. Voi- pas) ! 
+ 
LU mm 
FRS BI-MOTS HREE 
nl 2 - = 
&: === Configuration : TRS-80 modele 1 et 3 = EX 
} = . 
HOUSE (C) 1983 TRACE ET Dubois Michael ie 
DE a 
GO ‘=====222=2222=22222222S2SSSSSSRSSSSSSSSSSSESSSSESSESE CE 
2 Eee F 
CE RER PTE AT PLENRASBQGU REP BRE EEE = C4 


80 CLEAR 4000 : DEFINT A-Z:REMFE 

00 DIM EE$(?74):GG$(24)2M88(70) 2M7$(20):M8$(20):MS$(20) :REMD4 
100 FOR I=1 TO 20 READ AA$S : M64$(I)=A4A$ : NEXT:REMSE 
110 FOR I=1 TO 20 READ AAS : M7$(I)=AAS$S : NEXT:REM20 
120 FOR I=1 TO 20 READ AAS : MBSI)=AAS$ : NEXT:REM7S 
130 FOR I=1 TO 20 READ &8S : M9$(I)=84$ : NEXT:REMéË 
140 CLS : PRINT CHR$(23) :REMS7 

150 FOR I1=254 TO 318:REMDS 

160 PRINT &@12CHR$(191)5 : PRINT 91+254:CHR#t191)3 : NEXT:REMF1 
170 PRINT 6@408:"BI-MOTS":REMSD 

180 FOR I=1 TO 2000 : NEXT:REM3C 

1490 --------------- Affichage des regles du Jjeu---------- 42 
ADO : 

210 CLS:REMA& 

220 PRINT 40:STRINGS(63:CHR$(131)): : PRINT 415#64:STRING#(63:CH 
R$(176)}3 :REMSZ 

SAN SET UI7ZÉ0 0) e SEDOI207 47) ENEORNI=O T0 470 SENUT I) NN SEN AZ 
7:21) : NEXT:REMS1 

240 PRINT 989:2"B I - MOTS": : PRINT 9152:"PAR DUBOIS MICHAE 
L'3:REMFC 

250 PRINT 43467"REGLES DU JEU“: : PRINT @410:"========22222=?; 
PRINT 946?:"PENDANT LE JEU IL NE FAUT EN AUCUN CAS”"::REMDES 

260 PRINT à532:"PRESSER LA TOUCHE <ENTER>”3::REMS3 

270 PRINT 3780:"PRESSER Lâä TOUCHE £CLEAR} POUR POURSUIVRE"::REMF 
À 
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280 FOR I=1 TO SOON:REÈMSS 

290 INS=INKEYS:REMES 

300 IF INS=CHRS(31) THEN 340:REME7 

310 NEXT JI:REMF9 

320 ‘----------- Introduction du nombre de iettres-------- EF 
SM CR 

340 CLS : PRINT 9280: "AVANT-JEU"::REMSE 

350 PRINT : PRINT 94513:'"ENTRER LE NOMBRE DE LETTRES GUE VOUS DE 
GSIREZ €4} <£73 €83 <935 “::REMSE 

360 PRINT à593:3: : INPUT D:REMSFé 

370 IF D£é OR D>9 THEN 3S5D0O:REN2E 

380 A=D-(D-1):REMC7 

390 ON D-5 GOTCO 400:470:540:410:REM21 
400 R1=RND(20) :REM8& 

410 AS=MGS(R1) : IF A$="" THEN 400:REMOB 
420 M&S(R1)="":REMC7 

430 R2=RND(20):REM67 

L&O BS=MOS(RZ) : IF H$="" THEN 430:REME7 
&50 M6$(R?)="":REMAR 

460 GOTO 7O00:REMOF 

470 RI=RND(20) :REM40 

480 AS=M7SCR1) : IF A$="" THEN 470:REMBD 
490 M7$(R1)="":REMED 

500 RZ=RND(20) :REMZ1 

910 B$S=M7S$S(R2) : IF B$é="" THEN SOD0:REMAZ 
520 M7$(R2)="":REM6D 

530 GOTO 7O0:REMCS 

540 Ri=RND(290) 

990 AS=MES(RI) : IF A$="" THEN 540:REM77 
560 M8$(R1)="":REM38 

570 R2=RND(?0) :REMDA 

960 B$S=MBS$S(R2) : IF B$="" THEN S570:REMS53 
590 M8$(R2)="":REMI9 

600 GOTO 7D0:REMEZ 

b10 R1=RND(20):REMEB3 

620 AS=MPS(R1) = IF 4$="" THEN 610:REM3? 
630 M9$(R1)="":REMF1 

640 R2Z=RND(?20) :REMS4 

b50 B$=M9$(R2) : IF B$="" THEN 640:REMOE 
660 M9$(R2)="":REMD? 

670 GOTO 700:REM3C 

880 *----------- Introduction des rrenoms des Jjioueurs----- 26 
b90 ‘ 40 

700 CLS:REMBE 

710 PRINT : PRINT "ENTRER LE PRENOM DU ER JOUEUR # 
5C$ = PRINT : PRINT : PRINT : PRINT "ENTRER LE PRENOM DU SEME JG 
UEUR <*;:D$:REMO2 

720 PRINT 4957°"3; =: INPUT C$ : PRINT 4352:""3 3: INPUT D$:REMSD 
730 FOR I=1 TO 300 : NEXT:REM43 

7840 Aftic 
7507218 

760 CLS:REM8? 

770 FOR À=1 TO D:REM32 

780 PRINT @132+A2"+"5 : PRINT 9165+83:"+"3::REMDE 

790 NEXT A:REMIF : 

800 PRINT à@258?"ERREURS:" : PRINT @287:"ERREURS:":REMDE 
810 PRINT à3867"SCORE :° : PRINT 44152 "SCORE :":REM2E 
820 PRINT. 4513:C$3 : PRINT à85466:D$::REMD4 

830 FOR X=20 TO 30 : SET(X:16) : NEXT X : FOR X=77 To &88 {x 
24169) 05 NET NOR TS RO RE ERA NOMEMNENTO NE MEDR = 
O 21 : SET(19:Y) : NEXI Y:REMD&4 
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B40 FOR X=20 TO 30 : SET(X:221) : NEXT X = FOR X=77 TO 88 : SET{X 
PP) 2 NEXT OX =: FORCER 0eT "SET (301 Y) -ANEXT Y'22FOR Y=té + 
0 21 : SETC88rY) = NEXT F-REMD7 

850 P1i=10:REMF4 

B60 PRINT 9394P1::REM27 

870 P2=10:REMDF 

880 PRINT 9423:P25:REM19 

RU Er PTE Construction des Fersonnages-------- 83 
SOUS 77 


910 EFS=STRINGS (64: CHR$(1ZE))}:REMSD 

920 BHS=CHRS(188)+CHRS$ (172) +CHR$ (188) +CHR$ (158) +CHR$ (188) SREM2D 

030 BVS=CHRS(143)+CHRS (143) +CHRS CAF 1) +CHRS (143) +CHRS (143) 2 REMSS 

040 BOS=STRINGS (9: CHR$(128) ) :REM6À 

050 BCH=STRINGS(9:CHRS (171) ):REM&C 

060 BXS=CHRS CAS 1) +CHRS(1971)+CHRS 19 1)+CHRS (191) +CHRS (191) +CHR$ C1 
D4)+CHRS(191)+CHRS(191)+CHR$S (171): REM4D 

970 ENS=CHRS(191)+CHRS(187)+CHRS(191)+CHR$ (183) +CHRS (191) :REMD1 

080 BMS=CHRS (176) +CHRS (176) +CHRS (179) +CHRS (179) +CHRSC191)+CHRS C1 

79)+CHR$S(179)+CHR#&(176)+CHRS& (176) :REMIA 

090 PRINT 4847:CHR$(191)3 : PRINT 4851:CHR$(191)5 : PRINT @7112C 

HR$(194)3 : PRINT 4915:CHR$(1914)3 : PRINT 4975:CHR$#(191)5 : PRIN 

T 4979:CHR$(191) 3 :REMCC 

1000 PRINT 3527:BH$3 : PRINT 4591/BV#3: : PRINT @6532BC$: : PRINT 
87172BC$5 : PRINT 4781:BX$3:REMDC 

CO nn nn ne ne RES DE 
1020 PRINT 45562BH$3 : PRINT 4620,BV$3 : PRINT @682:BC#3 : PRINT 
2746:BC$3 : PRINT 0746:BC$3 : PRINT 4810:BX$::REMF3 

1030 PRINT 8876:CHR$(191)3 : PRINT a880:CHR$(191)5 : PRINT à88 


80; 
CHR#(191)3 : PRINT à940CHR$(191)3 : PRINT @944CHR$(191)3 : PRI 
NT 41004CHR$#(191)3 : PRINT G1008CHR$(191)3::REM4S 
THON Er de ner FACE Al ISA É OR em EC 
LAID 2 Er 
1060 A=0:AT=0:C=0:CH=0:CP=0:E=0:F=0:G=0:H=0:1=0:1=0:K=0:L=0:N=0: 
O=0:P0=0:@=0:R=0:R1=0:R?=0:S=0:T=0:TH=O:TI=O0:TX=0:T2=0:Y=0:H=0:Y 
=0:2=-0:REMES 
NÉE PAT RSR ESS Introduction d'une lettre du îer joueur--- CE 
1080 ” C4 


1090 GOSUB 2030 .: GOSUR Z090:REMCE 

1100 1F GH>=D THEN TH=i:REM39 

4110 IF GH>=D THEN 2480 ELSE PRINT à0:EF$3: : PRINT à13:"VOTRE LE 
TTRE S'IL VOUS PLAIT:"3C$:REMFE 

1120 FOR I=1 TO 200 : NEXT:REMEC 

1130 GOSUB 1230:REM3E 

1140 ‘-------—- Introduction d'une lettre du ?eme Joueur---- 88 
en Az 

1160 1F CP>=D THEN TI=1:REMFE 

14170 IF CP>=D THEN 2630 ELSE PRINT 40:EF$3 : PRINT à13:"VOTRE LE 
TITRE S'IL VOUS PLAIT: ":D$:REMBA 

1180 FOR I=1 TO 200 : NEXT:REMS80 

1190 GOSUE 1340:REMFD 

1200 GOSUR 2090 : GOTO 1160:REMéi 

142140 ‘------------ Decomrte du temrs du Îer Jjoueur--------- 47 
AAC 

1230 E$="":REMAC 

1240 FOR Y=33 TO 47:REME7 

1250 RESET(Z2Y) : RESET(3:Y):REMCE 

1760 FOR I=i TO 170 : NEXT I:REME1 

1270 ES=INKEYS:REMFF 

1280 IF E$=""THEN 1290 ELSE GOT9 3150:REM30 
1290 NEXT Y:REM11 

1300 1F E$="" THEN E$="." : GOTO 1480:REMCA 
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1310 END 

14320 ---------—- Decompte du temrs du 7eme Joueur--------- B3 
1340 5e 09 

1340 G$="":REMSE 

4350 FOR Y=33 TO 47:REM7E 

1360 RESET(124:Y) : RESET(125:Y):2REM9Z 
LATO FOR CE=TAC 17  -ONEXMNT-REMTT 

1380 GS=INKEYS:REMSE 

1390 IF G$="" THEN 1400 ELSE 23Z70:REM55 
1400 NEXT Y:REMAZ 





1410 IF G$="" THEN G$="." : GOTO 1740:REMSS 
4420 --------—------- Descente du bonhomme (1)------------ &8F 
1430 ‘ 85 


1440 PRINT 40:EF$3: : PRINT à16:E$3 : PRINT G18:°NE SE TROUVE PAS 
DANS LE MOT”::RÈMES . 

1450 FOR I=1 TO 200 : NEXT:REM71 

1460 P1=P1-1:REM71 

1470 Z=7Z+1:REMBE 

1480 IF P1<10 THEN PRINT 4395:Pi3 ELSE PRINT 4394;:P13:REMSE 

1490 IF Z=1 THEN PRINT @d266:E$3 ELSE 1510:REM7A 

1500 PRINT 9527B0$3 : PRINT 4591:BH$3 : PRINT 4453:8B0$3 : PRINT 
26557BV$3 : PRINT @717:BC$3 : PRINT 4781:BC$3; : PRINT G@845:EX#;: 
:REMIS 

1510 IF Z=2 THEN PRINT @267?E5$: ELSE 1530:REM6Z 

1520 PRINT 4590:B0$3; : PRINT 4717:B0$5 : PRINT G4655:EH$35 : PRINT 
9719:2BV$3 : PRINT à@/7812BC$35 : PRINT G3245:BRC$5: : PRINT à909:BX$: 
:REMFE 

1530 1F Z=3 THEN PRINT à4268:E$3 ELSE 1550:REM4A 

1540 PRINT a655:B0$; : PRINT 9781:B0$3: : PRINT 2a719:BH$3: : PRINT 
2/83:BV$; : PRINT 98435:BC$: : PRINT 9909:BC$; : PRINT 9973:HBX4#: 
:REMDE 

1530 1F Z=4 THEN PRINT à269:E$3 ELSE 1S590:REM30 

1560 PRINT àa719:B0$3:REM33 

1570 PRINT G783:BN$; : PRINT 9845:BM$; : PRINT G@909:BC$3 : PRINT 
99732BC$5:REM8S 

1580 1F Z=5 THEN PRINT à@270:E$: ELSE 1600:REM20 

1590 PRINT à9783:E0$35 : PRINT G@845:B0$: : PRINT à@7/783:BH$3 : PRINT 

._ _48477BV$3; : PRINT G4973:BC$::REM77 

1600 IF Z=6 THEN PRINT @271:E$: ELSE 1620:REM08 

1610 PRINT 93793R0$3 : PRINT 49845:B0$3 : PRINT @9097:E0$: : PRINT 
4847:BN$3 : PRINT Q909:BM$::REMSE 

1620 IF Z=7 THEN PRINT 9272,E$; ELSE 164D:REMFO 

1630 PRINT 9845:B0$; : PRINT 4909:B0$3: : PRINT G@911:EN$: : PRINT 
4973BM$::REM38 

1640 IF Z=8 THEN PRINT à273:E$: ELSE 1660:REMDE 

1650 PRINT @909:B0$; : PRINT 9973:R0$: 3: PRINT 23911:BH$3 : PRINT 
9975:BV$3:REMID 

1660 1F Z=9 THEN PRINT 9274,E$: ELSE 16S0:REMBF 

1670 PRINT à909:B0$: : PRINT @9735:BN$::REMDE 

1680 IF W>=10 THEN TZ=1:REMFC 


1690 IF Z}>=10 THEN PRINT àa275:E$3 : PRINT à9/75:E0$8: : IF TZ=1 TH 
EN 2780 ELSE GOTO ?780:REM11 

1700 GOSUR 2030:REM0O0 

1710 GOTO 1180:REMF7 

4720 "-----------—- Descente du bonhomme (7)-=------------- 47 


123000 -38 

1740 PRINT &0:EF$3 : PRINT à@16:G$3 : PRINT @18:°NE SE TROUVE PAS 
DANS LE MOT"::REMEB& 

1750 FOR 1=1 TO 200 : NEXT:REM44 

1760 P2=P2-15:REM42 

1770 W=W+1:REMSF 
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1780 IF P2<10 THEN PRINT 4424:P23: ELSE PRINT à423:P23:REM3C 

1790 IF W=1 THEN PRINT 9295:C$: ELSE 1810:REM49 

1800 PRINT 3556:H0$: : PRINT G682,B0$: : PRINT @620:BH$; : PRINT 
26843BV$3 : PRINT 4810:BC$: : PRINT G874:BX$::REMCS 

14810 IF W=2 THEN PRINT 82946:G$: ELSE 1830 

1920 PRINT 8620:EH0$: : PRINT &746:E0$%3: : PRINT Gé84:EBH#$3 : PRINT 
a74B8,BV$3: : PRINT 49874:BC$: : PRINT 4938:BX$5::REMAS 

1830 IF W=3 THEN PRINT @297:G#3 ELSE 1850:REMIS 

1840 PRINT 86827:B0$: : PRINT 4746:B0$3: : PRINT @810B0$3 : PRINT 
2748:EH$3 : PRINT 4812:BV83: : PRINT @939:BC#3 : PRINT 4100Z2:BX# 
3:REM8F 

1850 IF W=4 THEN PRINT G298:G$3 ELSE 1870:REMOD 

1860 PRINT 9746:B0$%3: : PRINT &4874:B0$3 : PRINT @812:EN$3: : PRINT 
8974:BM$3: : PRINT 41002:RC$::REMS1 ; 

1870 IF W=5 THEN PRINT @299:G$3; ELSE 189D:REMES 

1880 PRINT 9810:H0$3: : PRINT 9874:8B0$; : PRINT @812:BH$: : PRINT 
227b:BV$35:REMSF 

1890 IF W=6 THEN PRINT à300:G$3: ELSE 1910:REMEB 
1900 PRINT @48102B0$: : PRINT a4938:B0#: : PRINT à87é 
8938: EM$::REM24 

1910 IF W=7 THEN PRINT 4301;:G$: ELSE 19S30:REMDS 
1920 PRINT 48742BR0$%3 : PRINT à4938:B0$3; : PRINT G1002:B0$: : FRIN 
T 4940:BN$3; : PRINT 231002:BM$3:REME# 

1930 IF W=8 THEN PRINT 4302:G$: ELSE 19S0:REMBE 

1940 PRINT 81002:B0$3 : PRINT 9940:EH$3 : PRINT 41004:BV$3:REMAZ 


î 

mal 
F4) 
4 


PRINT 


1950 IF W=9 THEN PRINT 9a303:G$: ELSE 1980:REMA4 

1960 FRINT à938:B0$: : PRINT G1004:BN$3::REMS3 

1970 IF Z>=10 THEN TX=1:REMDE 

1980 IF W>=10 THEN PRINT à3304:G$3 : PRINT 31002:60$3: : IF TX=iT 
HEN 2790 ELSE GOTO 2780:REMDA 

1990 GOSUE 2090:REMD7 

2000 GOTO 1100:REMDA 

2010 ‘--------- Construction du er compte à reboure------—- iF 
2020 ‘ ES 

2030 FOR X=2 TO 3 : FOR Y=33 TO 47:REMC# 

2040 SET(X:2Y) 2: NEXT Y : NEXT X:REMIiD 

2050 RETURN:REM6é4 


2060 LE 
2070 ‘--------- Construction du Zeme compte a rebogurs------ pe 
2080 ‘ D8 


2090 FOR X=124 TO 125 : FOR Y=33 TO 47:REMBD 
2400 SETCX2Y) : NEXT Y =: NEXT. X:REMED 
2110 RETURN:REM28 


FE PA DER E0 
21430 ‘Comparation des lettres entrees et verification (Î1i- âé 
2120 00/70 


2150 F=F+1 3 IF F=1 THEN 2190:REMS8S 

2160 FOR H=1i TO R:REMAA 

2170 IF E$=EES#$ CH) THEN PRINT &G0:EF$: : PRINT &@10:"VQOUS 
ENONCE (CEMIECLETTRE PSE FORME FO 200 0NEXR ET = 
: GOTO 1100:REMFF 

2180 NEXT H:REMAS 

2190 R=R+1:REMF3 

2200 EES$S(R)=ES$:REMEI 

2210 FOR T=1 TO D:REM/A 
2220 F$=MIDS(AS:T:1):REMS0 
2230 IF ES$=F$ THEN PRINT 402EF$3 : PRINT 4@19:E$: : PRINT &421:°"ES 
T UN BONNE LETTRE"3 : FOR 1=1 TO 200.3: NEXT I : PRINT à133+{T-1) 
2E$3 : GH=GH+1 : P4=Pi+i : IF P1<10 THEN PRINT à9395;P13 ELSE PRI 
NT Q394P15 : A=A+(D/D)i:REMEI 
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2240 NEXT T:REMSD 

2250 FOR PO=1 TO LEN(AS)-1+1:REMA 

2260 IF E$=MID$(A$:PO:1) THEN 2280: REMES 

2270 NEXT PO : PO=D:REMI6 

2280 IF PO=0 THEN 1440 ELSE GOSUE 2030 : GGTO 1100:REMS9C 


EEE à 04 
7300 ‘Comparaison des lettres entrees et verification {3)- FC 
210 F1 


2320 C=C+4 3: IF C=1 THEN 2360:REME7 

2330 FOR G=1TOK:REMO7 

2340 IF G$=GG$(G) THEN PRINT G0:EF$3: : PRINT Gi0:"YOUS &VEZ DEJA 
ENONCE CETTE LETTRE !'";3 : FOR I1=1 TO 300 : NEXT : GOSUB 2699 : 

GOTO 1180:REMSE 

2350 NEXT G:REMFE 

23840 K=K+1:REMSÉ 

2370 GG$S(K)=GH:REM27 

2380 FOR CH=i TO D:REMS9E 

2390 T$S=MIDS(BS: CH: 1) :REMBF 

2400 IF G$=T1$ THEN PRINT 40:EF$3: : PRINT à@192G$3 : PRINT à231:°"E5S 
T UNE BONNE LETTRE"; : FOR I=41 TO 200 : NEXT I : PRINT d166+(CH- 
4)2G$3 : CP=CP+1 : P2=P2+1 : IF P2<10 THEN PRINT à@424:P235 ELSE P 

RINT @423:P23; : AT=AT+(D/D) 

2410 NEXT CH:REM7E 

2420 FOR O=1 TO LEN (B$):REM4& 

2430 IF G$S=MIDS(EH#:0:1) THEN Z4S5S0:REMEC 

2440 NEXT Q : O=0O:REMDOE 

2450 IF 0=0 THEN 1740 ELSE GOSUB 2090 : GOTO 1160:REM3* 

PROD ECS Introduction du mot de l'adversaire (1)----- 3 
24700 il 

2490 IF TI=i THEN 2780 ELSE PRINT @0:EF$3 : PRINT @i8;"REPONDEZ- 
VOUS (0 OÙ N) ?7”3:REMB1 

2490 FOR Y=33 TO 47 : RESET(2:Y) : RESET(3:Y) : FOR 1=1 TO 170 
NEXT I:REMDE 

2500 L$=INKEYS: REM25 

2510 IF L$="" THEN 2520 ELSE 2540:REME4 

2520 NEXT Y:REM3F 

2530 1F L$="”" THEN PRINT à0:EF$: : PRINT &15:"VOTRE TEMPS EST EC 
OULE "3 s E$="." : GOTO 1450:REM640 

2540 PRINT G43:L$3 s: IF L$="0" THEN 2550 ELSE GOSUB 2030 : GOTO 
1160:REMFO 

2550 FOR I=1 TO 200 : NEXT I : PRINT à@02:EF$3 3: PRINT 415:"V0TRE 
REPONSE "3 : INPUT J$:REM4C 

2560 IF J$=EB$ THEN P1=P1+5 ELSE GOTO 2580:REMFO 

2570 IF P1<10 THEN PRINT 4395:P1: ELSE PRINT 4394P1i::REMI7 

2580 IF J$<>BS$S THEN Pi=Pi-S:REMS1 

2590 IF Pi<iD0 THEN FRIAT 93957P1: ELSE PRINT 9394:Pi::REM03 

2600 GOTO 2780:REM70 

Fa LI EE Introduction du mot de l'adversaire (2)----- C4 
2620 ‘ BA 

2630 IF TH=1 THEN 2780 ELSE PRINT @0:EF$: : PRINT &18:"REPONDEZ- 
VOUS (CO OÙ N) 7"3:REMEE 

2647 FOR Y=32 TO 47 = URESET(1P845VN) = RESETIL 2531) 20 POR I=1 TOUT 
70 : NEXT I:REMAD 

2650 M$S=INKEYS$:REMED 

26860 IF M$="" THEN 2670 ELSE 2690:REM40 

28470 NEXT Y:REMRE 

2680 1F M$="" THEN PRINT G0:EF#3: : PRINT G15:'"VOTRE TEMPS EST EC 

OULE !%35 à GE AN GORGE 75e REMCS 

2690 PRINT 8343:2M$3 s: IF Mé="0" THEN 2700 ELSE GOSUR 2090 : COT9 
1100:REMSA < 
2700 FOR I=1 TO 200 : NEXT I : PRINT à@0,EF$: : PRINT G15:'"VOTRE 
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REPONSE ‘3 : INPUT R$S:REMAD 

2710 IF R$=AS$ THEN P2=P2+5 ELSE GOTO 2730:REMS#4 

27270 IF P?7<i0 THEN PRINT 4474:P23 ELSE PRINT à@423:P23::REMS8C 

2730 IF R$<>AS THEN PZ=P2-5:REMS2Z 

2740 IF P?€10 THEN PRINT 3474:P2: ELSE PRINT 9423:P2::REM78 

275 GOTO 2780:REMDA 

RAT nn FR GR 2E 

2740 28 

2780 IF 7Z=10 AND W=10 THEN 2S00:REMOS 

2790 IF P1=P2 THEN 28S0:REMDC 

7800 PRINT 90:EF$: : PRINT à17:"LES MOTS ETAIENT :°3 : PRINT @69 
184$3 : PRINT 91i02:R$::REM31 

2810 FOR I=i TO 500 : NEXT I:REMDN 

2820 IF Pi=P2 THEN 2£890:REMEL 

2830 IF P1<P2 THEN N$=D$ ELSE N$= CS: REME9 

2040 FOR N=1 TO 10 : PRINT G0:EF#3 : PRINT 410:"*xxx C'EST "NS: 
QUI REMPORTE LA PARTIE #xk"TIREMIS , 

2850 FOR I1=1 TO 400 : NEXT I:REMAS 

2860 PRINT G0:EF$3:REM91 

2870 FOR C=1 TO 100 : NEXT C:REMA3 

2880 NEXT N : GOTO 2920:REM4C 

5090 PRINT 907EFS: : FOR L=1 TO 15 : PRINT 9207/### EGALITE 717? 

EH PORCI=T TO 300: NEXT I'RENIO 

2900 PRINT GdO:EF$3::REM4S 

2910 FOR I=1 T0 200 : NEXT I : NEXT L:'REMéî 

2920 PRINT a0:EF$3::REMSS 

2930 PRINT @15:"UNE &UTRE PARTIE ?°3:REM13 

2980 PRINT 93723 : INPUT O$:REMES 

2950 FO$=LEFTS(0$:1):REMCE 

2960 IF FO$="0" THEN 210 ELSE 29/7O0:REME7 

2970 CLS : END:REMID 

2990 DATA “GUERRE”; "CHEVAL"; “KIMONO”" : TOMATE” : "VALISE": "BATEAU: 
* BANQUE # 3 "SOLDAT > "HOMMES" "FLEUVE "à "JOUEUR ” » "DISQUE » “MIROIR":" 

NUMERO ” : “COURSE ” > "TENNIS"; "HOCKEY" : "AVENUE ; “LATTES” | "NAGEUR ” à FE 

N93 

2990 DATA "POMPIER” ; "CONSEIL"? "MEMOIRE ” : "ARTISTE": “BOUQUET "7 "AUT 

OBUS ” > "RIVIERE “3 "OUVREUR” : "SPECTRE"? "MUSIQUE": "EDITION" ee 
", PGCIENCE ‘> "PLANETE": “JOURNAL ” : MAGASIN": "PLONGER": "CIRCUIT" 

ANCART”":"FENETRE":REMS#4 

3000 DATA “NATATION”: "JONCTION"; "CENDRIER" : "AVIATION" 7 "LUMINEUX" 
3 "COMPTEUR "> "POSITION": "ARGUMENT “ : "VARIABLE ” > “FONCTION”: "DISCORD 

E”; "RELATION" > "LONGUEUR"; "RESULTAT" : ONDOYANT "3 "PRATIQUE " : "FAUTE 

UIL";"ECRIVAIN” > "COMMANDE ” >: CASSETTE" :REMSD 

3010 DATA "EMPREINTE“ : “BOULANGER ” > "B&RIGNOIRE” : TELEPHONE” :"CIGSR 

ETTE”: "FORMATION": “IMPULSION”": "PROGRAMME ‘7 "PRÉCISION" ;"OPERATEUR 
V,YEXECUTION"; "EXTENSION": "RESSOURSE *: "GRAPHIQUE" : "CONSTANTE: °R 
ABATTEUR * ; “INGENIEUR “ ; “CONFORMER ‘ : "OUVERTURE ":REM9A 

3020 DATA *“TRANSIGER":REMAE : 


415131160008 
28204 LA A 








Michaël Dubois 
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bricolage 








Ouvrez votre 


modèle 1 
sur le monde 


extérieur 


(IV) 





Dans cette série d'articles, nous avons tout d'abord 
réalisé une interface parallèle 24 bits pour le modè- 
le 1, puis nous avons choisi de prendre comme exemple 


d'application, un "brûleur" de mémoires EPROM qui pour- 


ra toujours rendre service aux bricoleurs. Nous vous 
présentons aujourd'hui le dernier volet de cette série 
qui concerne cette fois le logiciel nécessaire pour 
piloter cette application. La photo montre la carte 
“brûleur d'EPROM" enfichée sur la carte d'interface 
parallèle. L'alimentation est constituée par un char- 
geur secteur pour Calculette, délivrant une tension 
continue de 5 volts. 

Le programme se compose de deux parties : le corps 
principal en Basic, et une routine en assembleur pour 
la gestion des temps d'écriture des signaux électri- 
ques vers la mémoire EPROM. Signalons que ces temps 
doivent être très précis et sont imposés par les cons- 
tructeurs d'EPROM. Ils sont donnés ici pour une mémoi- 
re de type 2716 ou équivalent et les temporisations 
tiennent compte de la fréquence d'horloge du TRS mo- 
dèle 1 ( 1,77 Mhz). 


Ce logiciel est prévu pour une configuration disquette 
avec 48 Ko de MEV. Pour d'autres configurations il 
sera donc nécessaire de retoucher l'adresse de début 
d'implantation de la routine en langage machine (8000 
hexa dans notre cas) et de remplacer DEFUSR par 2 POKE 
dans le cas du Basic cassette. La routine en langage 
machine reste intacte et peut être relogée n'importe 
où en mémoire. Elle devra naturellement être chargée 
avant le programme Basic (LOAD sous DOS, ou SYSTEM 

en version cassette). Pensez à prévoir un "memory si- 
ze" en conséquence. 

La zone tampon à écrire dans la 2716 peut se trouver 
à une adresse quelconque en mémoire. Elle peut être 
chargée par différents moyens dont avez le choix : 
assembleur ,utilitaire langage machine, POKE en Basic, 
etc. Il est aussi possible de complèter le programme 
ci-dessous pour remplir automatiquement cette zone à 
partir d'un fichier cassette ou disquette. Nous vous 
laissons faire...! Dernier détail : les adresses de- 
mandées par le programme sont exprimées en héxadéci- 
mal. 


3 6-26 DD DE-DEDEDE A DE DD DD DES ADE-D N DSDED D DEDE DE DE DE DE DE DE D DE DE DE HE DE DE DE IE IE IH 


* 


LECTURE COMPARE ECRITURE FROM 2716 * 


* 


5 * 


5x _X=USR (VARFTR CN CO) )) 


ÿ# AVEC N(O) = O LECTURE FROM 


sx 1 


CE N(1) 
5 # N(2) 
HE N(3) 
HE N(4) 
sx 


5x CE S/F EST APPELE FAR USR SOUS BASIC II 


COMPARAISON FROM 
5 # 2 ECRITURE FROM 
DATA COMFARAISON 
ADRESSE MEMOIRE 
ADRESSE FROM 

COMPT L’OCTETS 


% où KO À À % K NX À 


D 36-26 6 DE 6 DE DE DE DE DE DE DH DE DE DE DE DE DE DE DE DE DE HE DE HE DE DE DE DE DE IE DE DE DEN IE DEN NUE K NN 
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(2 


00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 


VERSION 


EQU 
EQU 
EQU 
EQU 
EQU 


: 26/11/83 


08000H 
10H 
11H 
12H 
13H 
72H 
82h 
80H 
02H 
03H 
OCEOH 


: 060H 


ALIROUT 
047FH 
IX» 0000 


IX»SF 
SFr HL 


ZrLECFR 
2 


ZrECRPR 


ES “00 65 ‘On Me VON D ‘00 D An 68 98 


- 
; 
e 
; 
- 
; 
e 
5 
; 
Li 
; 
L1 
; 
« 
; 
LI 
; 
L1 
; 
LI 
; 
e 
ÿ 
; 
e 
ÿ 
[1 
ÿ 
1 
; 


ADRESSE ROUTINE 

ALR 8255 FORT À 

ADR 8255 FORT BE 

ALR 8255 FORT C 

ALR 8255 CONTROLE 

MODE 8255 INIT 

MODE 8255 LECTURE FROM 
MODE 8255 ECRITURE FROM 


BIT i FORT C=1 SELECT FROM 
TEMFO 50 MS ECK FROM 
TEMF BAS IN BC=LG TEMF 


- AFFELE ADRESSE 


SAUVEGARDE ADR PILE -—) IX 
ADR TABLEAU -)> SF 
SAUVEGARDE ADR TABLEAU 


REMISE À JOUR DE SF 


NCO) -) À 
NC2) -) HL 
NC3) -) DE 
NC4) -) BC 
SI N(0)=0 
"Sr N(o)=2 


#xxxx COMFR — COMPARE FROM N(CO)=1 


AL DEBUT AD FIN» 


C9 ‘es ‘es un «es “on sn en ras en 
4 
4 


OMPR 


+4 
4 


Os ‘O2 M6 ‘69 Mb MS VS MB ‘66 


LECFR 


LECIiO 
LEC20 


HL:AD COMF MEM 
LE:ALD DEBUT FROM N(3) 
BC=:CFT OCTET 


SCF 
JR 


LECIi0 


HLsÂL ECR MEM 
LEA DEBUT FROM N(3) 
EC3CFT OCTET 


SCF 
CCF 
EX 
LD 


AF »4F ? 
Ar INITRD 


AL MEMOIRE 


N C2) 


N(4) 


N (2) 


N (4) 


AL DEBUT AD FINr AD DESTINATION 


CARRY=I1i 


xxxw#x LECFR —- LECTURE FROM N(CO)=0 


CARRY=0. 


SAUVEGARDE DE CARRY 
FORT 4r»C=OUT B=IN 
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00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 


00870 


00880 
-00890 
00900 
00710 
00920 
00930 
00740 
00950 
00760 
00970 
009780 
00790 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
012970 
01300 
01310 
01320 
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0 ‘09 ‘9D ‘VOB ‘60. '@S D 09 ‘99 60 Où VB Ov on As OL 60 ‘On VOS Oz Un VOS O0 ‘CN VE ‘ON VD 08 ‘6ù AD O0 D A8 Or ATOS ON AN On OS 98 MB NS 08 Ab 6 IS Un ds UD 


INIT 8255 
SAUVEGARDE ADR FROM 


ECK FOIDS FAIBLE ADR 
AFFICHAGE ECKAN 


CADRAGE FOIDS FORT ADR 
LECTURE FORT C 

FROTECTION BITS FORT C 
BIT O-2 + ALR F FORT -) À 
ECR ADR F FORT FROM 
RESTITUTION ADR FROM N(C3) 


SELECTION FROM 
LECTURE FROM 


SAUVEGARDE DES DATA 


DESSELECTION FROM 
RESTITUTION DATA -}) À 
RESTITUTION DE CARRY 

SI CARRKY=1 -} COMFARAISON 
RESTITUTION LES DATAS 

ECR DATA À L’ADR MEM N(2) 
SUITE 

RESTITUTION DES DATA 
COMFAR DATA AVEC (N(C2)) 
SAUT SI FAS LI'’ERKEUR 
RESTITUTION ADR TABLEAU 
REAJUSTEMENT DU SF 

ADR LE N(4) 

ADR TABLEAU -} SF 

REG À SAUVER 


BC —}) N(C4) 
DE —-»> N(3) 
HL —-) N(2) 


DATA MEM -) D 
DATA FROM -}) E 

DE —»> N(1) 
KESTITUTION DU SF 
RETOUR AU BASIC 
INCREMENT DE N(2) 
INCREMENT DE N(3) 
DECREMENT LE N(C4) 


TEST SI N(4)=0 

SAUT SI <> © 
RESTITUTION DE CARRY 
FIN DU MODULE COMPARE 
RETOUR AU BASIC 


OUT (FENTL) rÀ 
LEC30 FUSH DE 
LD ÂrE 
OUT (FORT A) » À 
LD (3C3CH) sr À 
SLA D 
SLA D 
SLA D 
IN À» (FORTC) 
AND 07H 
OR D 
OUT (FORTC) » À 
FOF DE 
LD A» NFGM 
OUT (FENTL) »À 
IN À» (FORTE) 
FUSH AF 
LI ârFGM 
OUT (FENTL) »4 
FOF. âF 
EX AF »4F? 
JR CrLEC40 
EX AF»4F? 
LD CHL) » À 
JR LEC60 
LEC40 EX AFr4F? 
CF (HL) 
JR ZrLEC60 
LECS50 EXX 
LD BCr000À 
ADD HL » BC 
LD SF» HL. 
EXX 
FUSH BC 
FUSH DE 
FUSH HL 
LD Dyr CHL) 
LD EsÂ 
FUSH DE 
LD SPr1X 
RET 
LEC60 INC HL 
INC DE 
DEC BC 
LED âsB 
OR C S 
JR NZrLEC30 
EX ÀF » AF ? 
JR CrLECS50 
RET 
? 
FXXXXX ECRFR — ECRITURE FROM N(0)=2 
» 
ÿ AL LEBUT» AD FINr AD FROM 
La 
ÿ IN HL:AL DEBUT MEM N(2) 
ë DE:AL ECR FROM N(3) 
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01330 » 
01340 »; 


01350 ECKRFR 


01360 
01370 
01380 
01390 
01400 


EC:CFT OCTET N(4) 
À» INITUR 
(FCNTL) s À 

À» NFGM 
(FCNTL) rs 4 

Ar 07H 
(FORTO) r À 


01410 ECKF1i " DE 


01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 





Â°E 
(PORTA) » À 
(3C3CH) sv 
D 
D 
en 
A» (FORTC) 
07H 
D 
(FORTE) »À 
DE 
As CHL) 
(FORTE) rñ 


À» FGM 
(FENTL) » À 
BC 

BC? TIMWF 
TEMFO 

À» NFGM 
(FCNTL) »À 


NZ»ECKFi 
À 
(FORTO) » À 


LEBUT 


= 
(2 
« 
» 
= 
L 
= 
? 
= 
? 
= 
? 
= 
L 
= 
? 
= 
, 
= 
La 
= 
Là 
= 
; 
= 
? 
= 
? 
e 
y 
e 
? 
= 
L 
= 
? 
= 
[2 
8 
? 
= 
? 
= 
? 
e 
? 
n 
? 
a 
7 
« 
; 
« 
» 
= 
? 
s 
La 
ol 
? 
; 
= 
? 
= 
Lu 
Ê 
? 
Ê 
? 
= 
; 
= 
? 
a 
? 
= 
? 


4 
CHEN ECRITURE EFROM 24718 
Eu ET JOSUE BONIFAS 

D 
5 ! Configuration tSPé modele ji 

2h 48 Ko : 1 disauette 

i à 

D ‘--- MENU --- EC 

30 CLS à: DEFUSK=(éHÈ000) # 


“i - COMPARE 2714":REMAS 


FORT À»B7C=OUT 
INIT 8255 ECRITURE 
FGM=O 


EO»VFF=1 FGM=0 
TIMING D’ECRITURE FROM 
SAUVEGARDE ADR FROM 


ECR FOINS FAIBLE ADR 
AFFICHAGE ECKAN 


CADRAGE FOIDS FORT ADR 
LECTURE FORT C 

FROTECTION BITS FORT C 
BIT 0-2 + ADR F FORT -)> À 
ECR ADR F FORT FROM 


RESTITUTION ALR FROM N(3) 


DATA à ECRIRE -) À 
ECRITURE DATA 

EVITER LES IT FENDANT 50MS 
STROB ECR 


SAUVEGARDE CFT D’OCTET 
TEMFO ECKR FROM 
TEMFO S0 MS 


RESTITUTION DE NC4) —-) BC 
INCREMENT DE N(2) 
INCREMENT LE N(3) 
DECREMENT DE N(4) 


TEST SI N(4)=0 

SAUT SI «<)0 

ED » VFF' » FGM=O 

RAZ DU TIMING D’ECRITURE 
RETOUR AU BASIC 





FE 
FE 
à MME 
SR È 
FC 
DE ! VOIR TRACE N° 2 
Ee 7 
ï Q 
7 \é/ 


DEFINT N:REMS6 
40 FRINT &ü?"0 - LECTURE £718":REN0S 
30 PRINT 


TRACE N° 8 - Mars 1984 - 33 


3 PRINT “© = ECRITURE 27t6 cREMAL 
POSER IN IMU RNSE RENE 

BU INPUT HDi à IF NIO)>S THEN 40:REMSR 

DURE ASE ECDEONSODRERARTRSEIMENE EN NE 

100 CLS s IF NiO)<do THEN 1S0:REM44 

115 FRINT &Ü: “ADRESSE DE LECTURE PROM — DEBEUT s5°:3REM4S 
120 FRINT 5° DE FIREN7E 

130 FRINT “RANCEMENT MEMOIRE : :REMOF 
180 COTQ 
HAUT EN 





fi Z2D0* RENDS 

1è0 PR JRReErI ON PROM — DEBUT :":REMES 
170 FRINI 1REM& ; 

180 PRINT TADRESSE DE COMPARAIS ON MEMOIRE : :REM&Z 
190 CGOTC 240:REMIF 

Ï CURE THEN END:RENSS 

NT dr "ADRESSE EI RE à ECRIRE - DEBUT :":2REMEI 
220 PRINT 989:"- FIN : “:REMOD 

220 FRINT "ADRESSE EMBERMEURE FROM 2 "5REMD7 
Sa INPUT 823 ARIé) r ASCSIEREMTE 

DATE CONVEAPETONSENSRECEMAES= = NV TIS 

240 FOR I=? T0 & : J=D:REMEBD 

270 FOR Izi TO LENCASIIIISREÈMEE 

BED IFS=MNIDS(BS(T):193:1):2REM17 

S90 1F 19%>"a0" THEN JF=ASC(IS+S)-55 ELSE Jj9=ASC(I9$)-40:REMEE 

DO J=jé£ié+J9 à NEXT IS:REMAI 

310 NElirei-INT(J/323788):#65336 à: NEXT I:RENCS 

EC Nié4izNiéa)+i- N(2) 3 ÎIF N(O)<H? THEN NiÜlizN(2) : N(Z2)=N(3; 5 N 
aizN(d) : GOTO SSO0sRENAI 

A RE ETC OP PATES DO CRE STE = 

340 Ï1F Nié)320848 THEN CLS à PRINT @25: "ERREUR COMPTE OCTETS® : G 
OTO 40U:REMEC 

SD X=USE(VARFIRIN(O)))1REMEZ 

J60 ‘--- BFFICHAGE ERREURS COMPARAISON --- 67 

370 IF Niüi<i THEN NiDiz1 3 GOTO 350:REMS56 

360 IF Niés:=0 THEN S60:REME? 

390 PRINT “ADR PROM"3:TAR(17) "DATA" TAB(32) "ADR MEMOIRE":TAR(S2)" 
DATB":REMFS 

400 ‘--- CONVERSION DECIMAL HEXA --- 6F 

410 C&="ARCDEF"SREMSD 

420 FOR I=1i TG 3:RENSE 

#30 IF SGNIN(IH )=-1 THEN R=N(I)+65536 ELSE R=NCI)SREMSI 

&40 X=40Sé8:REME7 

450 FOR K=0 TG 3:REM79 

40 YINI=INTIR/E) : R=R-VINIEX =: X=X/18:REMS33 

#70 IF VIN3>9 THEN VS(N)=MIDS(CS: VCN)- —-G:1) ELSE VS(N)=RIGHT#ISTR 
ete REMOB 















{ 

9 UHCD)+VS(1)+US(2)+V8 (3) 1 NEXT:RENMZ7 

DO PRINT A$(3)3:3TABCI7)RIGHTS(AS(1):2) 3 TABR(32)A$(2) 3 TAB(S2)LEFTS 
âbti)r2):REMD7 

10 SS=INKEYS : IF AS=CHR$S(13) THEN S60:REMER 

320 IF A$="" THEN SiC:REMSY 

30 N(IS)I=N(Z}+4 3 N(G)=N(G)+1 2 N(4)=N(4)-14 2 IF N(4&)=0 THEN 560 
Aide 

540 X=USRIVARPTRINIOD) ) ):REMCS 

990 IF Ni4d£iO THEN 420:REN3C 

560 GOT0 SO:REMDE 


Li UT es ES 


Josué Bonifas 
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programme 


Mots croisés 









Ce petit programme a été rédigé initialement pour mes 
enfants mais il semble pouvoir être utilisé en école 
primaire : les instituteurs et institutrices qui l'ont 
vu tourner semblent intéressés... mais attendent d'hy- 
pothétiques dotations de matériel... 


Ce programme génère des mots croisés au hasard à par- 
tir d'un fichier de mots (data à partir de la ligne 
10000). Amateurs de Max Favallelli et de Roger de la 
Ferté : ce programme n'est malheureusement pas pour 
vous car les mots croisés qu'il crée sont très sim- 
ples et tous du même type : 





La structure de ce programme est la suivante : 


Lignes 40-80 : initialisations (en ligne 70, la di- 
mension 50 des tableaux M$,MD$,T correspond au nombre 
maximum des mots du fichier). 
Lignes 100-200 : programme principal qui appelle des 
sous programmes. 
Lignes 1000-1070 : lecture des mots (tableau M$) et 
de leurs définitions (tableau MD$). Le fichier de mots 
doit se terminer par le mot "fin" (ligne 1050). 
Lignes 1500-1750 : choix du mot croisé. Les variables 
importantes pour la bonne compréhension de ce sous- 
programme sont : 

C(i) : rang dans le fichier du ième mot du mot 

croisé (1 < i < 5). 

Pi(i),P2(i) : rang des croisements du ième mot 

avec les autres mots (P1(i) <P2(i)). 

T(j) : "drapeau" (T(j) = 1 si le jème mot du fi- 

chier est pris dans le mot croisé, O sinon). 
Lignes 1800-1870 : ce sous programme sert à ne pas 
avoir d'interférence entre les mots 1 et 4, 2 et 5 
et à ce que le mot croisé n'empiéte pas sur la partie 
définition des mots à l'écran. 
Lignes 2000-2230 : affichage de la grille à gauche 
de l'écran (numéro du mot suivi de —+ pour un mot ho- 
rizontal, de | pour un mot vertical et des pavés gra- 
phiques pour les lettres) et affichage des définitions 
des mots à droite de l'écran. 
Lignes 2500-4160 : réponse de l'enfant avec test et 
tout ce qu'il faut (simulation d'un INPUT par INKEY$, 
possibilité d'effacer une lettre mal introduite). 
Lignes 4500-4570 : le mot croisé est fini : est-ce 
qu'on continue ? 


Pour bien utiliser ce programme, il suffit normale- 
ment de bien lire ce qui est affiché à l'écran mais 
les enfants ont parfois du mal. Alors précisons : 


1. Il faut toujours introduire le numéro du mot au- 

quel on pense avant d'introduire le mot (même quand 

il ne reste plus qu'un mot à trouver). 

2. L'introduction d'un mot doit toujours se terminer 
par la frappe de ENTER, comme s'il s'agissait d'une 





instruction INPUT. Les lettres d'un mot trouvé res- 
tent affichees, sinon elles sont effacées. 

3. Lorsqu'on se trompe dans la frappe d'un mot, on 
peut revenir en arrière en tapant sur les touches : 


<— pour un mot horizontal 
f pour un mot vertical 


Les lettres frappées sont affichées sur la grille 
à la place du curseur clignotant. 


4. Lorsqu'un mot a été trouvé, ses lettres lorsqu'el- 
les appartiennent à un autre mot, ne sont plus à ta- 
per. C'est normal pour un mot croisé, mais peu habi- 
tuel pour un utilisateur d'ordinateur. L'utilisation 
des touches «— et Î tient compte de cela. De toute 
façon, le curseur clignotant est, à mon avis, très 
explicite. 

5. Le curseur clignotant n'est plus visible dans deux 
cas, mais c'est bien normal : 

a) On a tapé autant de lettres que le mot cherché 
en comporte. Dans ce cas, l'ordinateur attend 
pour commande :<— ou Î (rectification de lettres) 
ou ENTER (fin de l'introduction d'un mot). 

b) La dernière lettre du mot cherché est connue 
grâce à un autre mot. Comme cette dernière let- 
tre n'est plus à taper, à la frappe de l'avant 
dernière lettre, on se retrouve dans la situa- 
tion du a). 


Pour tenir compte des mots déjà trouvés, j'ai utilisé 
une astuce évitant des recherches fastidieuses dans 
des tableaux. Pour un mot trouvé, à côté de chaque 
lettre du mot est affiché le caractère graphique 128 
(alors que pour un mot non trouvé c'est le caractère 
blanc codé 32 qui est affiché !). Un PEEK de l'écran 
permet au programme de s'y retrouver : l'utilisateur, 
lui, ne voit rien (lignes 3030, 3420, 4050). 


Ces quelques indications doivent suffire pour compren- 
dre le fonctionnement de ce programme et bien l'uti- 
liser. 

Pour une utilisation pédagogique, il faut à mon avis 
quelques modifications et il convient de respecter 
certaines contraintes 


1. Création de fichiers de mots (difficultés ortho- 
graphiques d'un certain type, mots concernant un thè- 
me...). Selon que vous possédez cassettes ou disquet- 
tes, la gestion de tels fichiers étant très différen- 
te, je vous laisse l'adapter à votre matériel. 

2. Contrainte de longueurs. Les mots doivent avoir 

5, 6 ou 7 lettres (la hauteur maximale occupée par 
les mots 2 et 4 est de 14 lignes). Les définitions 
ont au plus 51 caractères (contrainte due à la zone 
réservée aux définitions et comme les mots d'une dé- 
finition ne sont pas coupés, il faut prévoir un peu 
moins). 

3. Importance des fichiers. Les fichiers doivent com- 
prendre au minimum une trentaine de mots pour permet- 
tre une certaine diversité. Il faut aussi éviter un 
trop grand nombre de mots commençant et finissant par 
“e" : ils risquent de revenir très souvent. 

Si certains lecteurs utilisent ce programme en clas- 
se, qu'ils nous fassent part de leurs réactions, de 
celles des enfants... et de leurs suggestions qui se- 
ront les bienvenues. 


TRACE N°8 - Mars 1984-35 


ie, Mots-croises ; RE 









F IC) Gerald Grandpierre et TRACE FE 
3 ‘ Confisuration : modele À ou 3: 14 K FD 
hi mm —— CE 
40 CL S:REMS# 

HUE £ 

ë a ur 


1 
æ Se 
A 

= 

= | 

0 

mA 

Fe 

pu 


ho principal SC 
eo ICOC:REM#4D 
C 1500 : GOSUE 1800 : IF Fzi THEN 120:REMZ 


ue | 
Hi 


st jus pen tt 
Qi 13 es Et LC 
Ce 





À 2000:REMZE 
GOS SUB ZS5S0O0:REMIZ 
COSUR 4000:REMOE 


[s 


a 
LE 


CM Ce COM 


por Hnde gin, te nn br pes 


FO IF BOSS THEN 1SD0:REME 7 

E0 GOSUR 4S00:REMFE 

O0 IF R$= "OUI THEN CLS : GOTO 120:REMEF 

O0 ENDG:REMBSE 

90 : ecture des mots et des definitions 15 

10 N<UDSREMRHE GMME 


EE EX 


RESTORE:REM71 7 


DER RES VOIR TRACE N9 2 


RE MSN) :REMSI 
LF MSIN)Z= "FIN" THEN N=ÿ-1 : RETURN:REM#47 e/ 
READ MDS(N) 


GOTO 1030:REM7D 
Choix des mots iF 
FOR I=1 TO N:REM3A 


DV re D em 2 to A 1 






We 
D 
3 





CERN 


2 8 re en Le 1e AY es 


Ü 
En 
1320 TII)I=O0:REMIS 
1530 HEETIREMTFA 
1540 FOR Izi TG S:RENG4 
PES PAIE PEUR TRENMZI 


+= 
E. 
BE 
eu 
= 
pri 
14 
| + 
A3 || 
c tue ts M 
» = 
En 


mt 

. 

ie | LA 
AA] tx [A eu is | 

(H 

x 


NEXT I'REM&S8 


F=Q:C(1)=RNDIN) =: T{C(1))=1:REM7à 

1410 FOR I=2 TO S:REMED 

1820 CCIH=RNDON) : IF TiC({l1))=1 THEN 1620 ELSE T(C(I))=1:REMSC 
1630 FOR Jj=0 TO Z:REMDD 

1640 CH=MIDS(MS(C(I-1))LEN(MHS(C(I-1)))-J:1):REMEA 
1650 B=3:IF LENCH#(C(T)))-3<B THEN B=LEN(MS#(C(I1)))-3:REMB4 
1680 FOR K=i TO B:REMAD 
1870 IF CÉ=MIDS(MSCC(I))72Kr:13 THEN 1710:REM58 
1880 HEXT K:REMSE 

1690 NEXT J:REMEF 

1700 T(C{l))i=0 : GOTO 1620:REMSF 
1710 PACI)=K : P2CI-1)=LEN(CM#(C(I-1)))-J:REMED 
4720 IF F2(1-1)-Pi(1-1)=1 THEN 1700:REM18 

730 


ee LA ex ©} 


1740 PTiGi=FiiT)i:REMNSZ 

17930 FETURNIREMNGSZ 

LE0Û0 ‘ Cas a exclure Fi 

DÉMO EN PENSE ME ENCORE PAIE GRO PP ORNE RMOENS PA ENT 
HEN 18S30:REÈMES 

1820 F=di : RETURNEREMCS 

1830 IF P202)-P1I3)3PICS) OR PPi4)-PILSI-ARLENIMIC(Z)))=-P4(2) T 
HEH 18S50:REMDS 

1540 Fzi ss RETURN: REMEI 

TÉNDSMEN MENIENTE IRSC REPOSER RE ANSE TCE AM ee CT ER 1870:REM3C 
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1860 F=1:REME9 
1870 RETURN:REMI9 
2000 ‘ Affichage 29 
2010 CLS:REM9E 
2020 FOR 1=0 ie 37 : SET(7221) : NEXT:REM72 
ITIONS"::REMCE 
5 SET(I»4) 5 SET(1737) : NEXT:REMSC 


2030 PRINT @43:"DEFIN 
2040 FOR 1=73 TO 127 
2050 EC=64:REMZF 

2060 FOR 1=0 TO 4:REMZC 

5070 IF I/2=INT(I/2) THEN U=64 : V=2.: D#=CHR#(94) ELSE U=2 : Vz 
54 : D$=CHR#(92):REM7A 

2080 EC=EC+P?C1)#U-P4CI+1)#V : EC(I+1)=EC+V:REMOD 

51D0 PRINT 4EC7RIGHTS(STRS(I+1)r1)5D$3 : PRINT 438+128#(1+1)7RIG 
HTSiSTRS(I+1) 1) 5D$3REMÉ£A 

2410 FOR J=1 T0 LENCH#(C(I+1)))2REM4B 


2120 PRINT 4EC+JxV;CHR#(136) ::REMB1 
7130 NEÂT J:REMDS 
3150 EU une 


n4b0 IF L£73 THEN PRINT @42+128*x(1+1):MD$( Cti+1)55 à COTO 222E5R 
EHAC 

9470 FOR J=23 TO 1 STEP —-1:REMCD 

IF MIDS(MDS(C(I+1)):)r1)=" * THEN 2200:REMSF 

NEXT j:REN9S 

PRINT G42+178#(I1+1):LEFTS(MDS( CUI+1))3J-13 1REMAZ 
PRINT 3101+178%(C1+1):RICHTS(MDS(C(I+1))3L-J)3:REMEIÎ 
NEXT I:REM7C 

RETURN:REMED 

” Reronse de l'enfant 33 

j PRINT à9460:"A GUEL MOT PENSES-TU (°3:REME9 

FOR I=1 TO 5:REMSD OUE > 
IF Cil)<4>0 THEN PRINT 1:5° "5:REMSD 

D NEXT : PRINT “) ?"3::REMBI VOIR TRACE N° 2 


D AS=INKEYS à IF A$="" THEN 2550:REM21 Nr 
CH=VAL(A$) : IF C(CH)=0 THEN 2550:REM6B NTROŸ 


D PRINT à4760:STRINGS(I40:34)5: REMES 

2580 PRINT 9960:"TAPE LE MOT°3:CH3:REM3S 
O GOSUE SOCGO:REME#4 

RETURAN:REMAC 

* Introduction d'un mot 30 

EM=EC(CH) : R$="" : K=136 : L=LENCM#(C(CH))):REM2B 

1F CH-Z3#INT(ICH/2)=0 THEN U=é64 ELSE U= Z:REMFC 

IF PEEK(I1S361+EMN)=128 THEN R$= R$S+CHRS(PEEK(152360+EM)) : EM= 
GOTO SOSDO:REN7S 

AS=INKEYS 2: IF A$="" THEN GOSUB 3200 : GOTO 3O040:REMID 








30: IF àSC(Aÿ)=13 AND LEN(RS$S)=L THEN RETURN:REMSE 
3060 IF ({U=7 AND ASC(AS)=8) OR (U=64 AND ASCiA#)=01)) AND LENCR 
$i30 THEN GOSUE 3400 : GOTO SO40:REM34 
3070 1F Agëg<"A" OR A$>"7" THEN 3040:REM6D 
3080 IF LEN(CR#)I=L THEN 304D:REMF 
3090 Ré=R$+éé + PRINT dEM:8$: : EH=ENM+U:REMIiD 
31400 GOTO S3O030:REMES 
3500 ‘ âttente 74 
3340 IF LENCRS)=L THEN RETURN:IREMA# 
50 PRINT 3EfH:CHR#(K)3:REMEZ 


FOR I1=i TO 20 : NEXT:REMA# 

O K=iés-KiREN74 

250 RETURN? RENEO 

: Effacade d'un caractere àE 

IF LENIRSIERL THEN PRIAT 9EM:CHR#(136)3: REMCE 

IF PEEK(15361+EN-0)=32 THEN EM=EM-U : RS=LEFTS(RS:LENCRE)- 1 


TRACE N° 8 - Mars 1984 - 37 





nr 
#0 





SA0 RENE 
4&OOD ‘ Test SE 
AOÂO IF RE=MSCCICHI I THEN 4300 :RENFE 


4070 PRINT 9960:'°CE N'EST PAS CE MOT'3:2:REMEC 
4030 FOR I=zi 10 2000 : NEXT:REMES 

4040 FOR I=0 TO L-i:REMS52 

4050 IF PEEK(15361+EC(CH)+Ix0:=128 THEN 4070:REMEA 

4060 PRINT GEC(CHi+ialu; CHR$S(136) 5 :REMSC 

4070 NEXT:REMS4 

&080 RETURN:IREMEF 

4100 PRINT 9960:"C'EST BIEN CE MOT'"3:REMC4 
4110 FOR I=i TO 2000 : NEXT:REMD2 

4120 FOR I=0 TO L-i:REMNi 

4130 PRINT @EC(CHi+iæliti; CHRS(128) 3 :REMFS 

4140 NEËT:REMSD 

4150 RO=RO+1 : C(CHI=0:REM47 

4180 RETURNIREMIE 

4500 ‘ Mot croise termine SE 

4510 PRINT à960:”BRAVO:TU AS TROUVE TOUS LES MOTS"::REMDE 
4520 FOR I=1i TO 7000 : NEXT:REM37 

4530 PRINT 4960: "VEUX-TU FAIRE D'AUTRES MOTS CROISES"3::REMEZ 
4540 INPUT R&:REM3#4 

4550 IF R$<>"OUI" AND R$S<>"NON" THEN PRINTA960:STRINGS(63:32)5 à: 
GOTG 4530:REMCé 

L540 BO=D:RENMSSG 

4570 RETURN:RENS3 

10000 *’ Mots et definitions C9 

10010 DAT VACHE:ELLE DONNE OÙ LAIT:REM4E 

10070 DATA SAFIN:ON LE DECORE à NOEL:REM37 

10030 DATA COUTEBU:;SERT à COUPER:REMS# 

10040 DATA COCHON:û L& QUEUE EN TIRE BOUCHON:REMOE 

10050 DATA FOISSON:VIT DANS L'EAU:REMSI 

i0040 DAT8 ETOILE:BRILLE LA NUIT DANS LE CIEL:REMEBC 

10070 DATÉ BVION:VOLE DANS LE CIEL:REM#4E8 

10090 D4Té SABLE:ON EN F&éIT DES PATES QU DES CHATEAUX:REMDE 
10090 DATÉ EONBON:DEUX FOIS HON:REME7 

10i00 DATA ECURIE:M8ISON DU CHEVAL:REME 

10110 DATSé BOUCHE:SERT POUR MANGER ET PARLERSREMS#4 

10120 DAT£ BIBERON:SERT & FAIRE BOIRE LES BEBES:REMOD 

10130 DATÉ GRBRE:4 UN TRONC ET DES BRANCHES:REMOZ 

10140 DATA ETABLE:LES VACHES Y HBBITENT:RENMSÉé 

10150 DATA ECOLE:ELLE EST FERMEE PENDANT LES VACANCES:REM23 
i0180 D6Té BOTTE: CHAUSSURE FOUR L& PLUIE:REMFZ 

10170 DATA GIRBFE:ANIMAL AU LONG COU:REMSE 

10180 DATA SAEVON:SERT & BIEN SE LAVER:REM3E 

10190 DATA ECHELLE:SERT à MONTER DANS LES ARBRES:REMSS 
10200 DATA ROUGE:COULEUR DU SANG:REMER 

105310 DATA JAUNE:COULEUR DU CITRON:REM4S 

10770 DAT4 CHBPEAU:;PROTEGE DU SOLEIL:REMCE 

10230 DATS DOCTEUR:SOIGNE LES MALADES:REM79 

10240 DATA SERPENT:EST PARFOIS à SONNETTE:REMS2 

107550 DATA RUCHE:LES AGBEILLES Y FONT LE MIEL:REMSé 

10260 DAT& TEÉTARD:DEVIENT UNE GRENOUILLE 

10270 DAT TOBGGAN:TON Y GLISSE:RENMSF 

ND DAT8 HARTEAU:SERT 8 ENFONCER DES CLOUS:REMEC 

10290 DATÉ TABLEAU:ON Y ECRIT AVEC UNE CRAIE:REMIC 

40300 DATA CHAISE:ON S'Y ASSOIT:REMFE 

10310 DéTé PFINCEBU:SERT à FEINDRE:RENSS 

11000 Dätéa FINSREN7S 
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utilitaire 





Copie de fichiers sur 1 drive 


TRACESYS est destiné à permettre aux utilisateurs de 
TRS80 Modèle 1, qui ne disposent que d'une seule uni- 
té de disquette et de TRSDOS, de recopier néanmoins 
les fichiers des disquettes TRACE sur des disquettes 
système. En effet, la commande COPY des TRSDOS ver- 
sions 2.1 à 2.3 nécessite deux unités car la copie 

se fait secteur par secteur. 


Afin que ceux qui ne possédent pas d'assembleur puis- 
sent également en disposer, le programme a été écrit 
en BASIC. Mais oui, ce langage mène à tout à conditior 
d'en sortir parfois grâce à l'instruction USR ! Il y 
aura donc des DATA pour alimenter le POKE de la bou- 
cle d'implantation de quatre petites routines en lan- 
gage machine. Celles-ci sont réduites au strict mini- 
mum (199 octets en tout seulement), pour soulager le 
pianiste tapant les fastidieux DATA. Il en résulte 
évidemment certaines limitations qui auraient pû être 
évitées avec un programme plus sophistiqué mais plus 
volumineux. Tel quel, outre l'emploi dans sa vocation 
initiale, vous pourrez également l'utiliser pour la 
copie de fichiers d'une disquette non système sur une 
disquette système, quel que soit le DOS (en principe 
du moins). IL fonctionne également sur le TRS80 Modè- 
le 3, mais la disquette source doit avoir été générée 
par le DOS de la disquette destination, en raison de 
la gestion différente de la DIRECTORY. La taille de 
chacun des fichiers ne devra pas excéder 16 ou 32 K 
octets selon que vous disposez de 32 ou 18 K de MEV, 
sinon vous écraserez la pile et ce sera le plantage. 
D'autre part, lors de la copie de fichier ayant une 
longueur d'enregistrement logique (LRL) différente 

de 256 octets, le nouveau fichier sera créé avec une 
longueur d'enregistrement de 256 octets (LRL=09). 
Pour obtenir une copie conforme, il faut créer préa- 
lablement le fichier destination (à l'aide de la com- 
mande CREATE par exemple) avec la LRL désirée. 


Pour la rise en oeuvre, respectez le mode opératoire 
suivant : 


s fichiers de ia 


fi F2 te 
. 


"t C LA Fr 





a IE 
Le 
. 
“… 


+ 


& 
RS-D0S et une seule unite 
sur modele i ou VGSE 


isauette TRACE FF 
te de disquette FE 
FD 
FC 
FE 
FÂ 










- Placez la disquette système TRSDOS contenant le 
programme TRACESYS dans l'unité O0 et chargez-la. 

- Appelez Basic et tapez RUN'TRACESYS". 

- Pour annuler une opération en cours (hors des accès 
disque) et revenir au début de la procédure de co- 
pie, pressez la touche (A). 

- Appuyez sur (Q) pour terminer la session et retour- 
ner au Basic. 

- Ne jamais faire RUN tout seul à la suite d'une com- 
mande SAVE ou après l'affichage d'erreur, car alors 
le module système en overlay ne serait pas SYS2/SYS, 
lequel est absolument nécessaire pour débuter la 
procédure avec la phase de lecture. 


La séquence de copie d'un fichier avec TRACESYS de- 
mande beaucoup moins de manipulations de disquettes 
que la plupart des utilitaires fonctionnant avec une 
seule unité 


- Après avoir déclaré le nom du fichier, l'usager est 
invité à placer la disquette TRACE dans le lecteur. 
Le chargement en mémoire dans un tampon, s'effectue 
en une seule passe. 

- Ensuite il faut insérer la disquette destination 
qui doit obligatoirement être une disquette systè- 
me. Un nouvel accès disque réalisera en une seule 
fois toutes les opérations d'écriture du fichier. 
Si le mode VERIFY a été activé, chaque secteur 
sera relu immédiatement au tour de disque qui suit 
celui de son écriture. 


- Normalement la séquence se termine avec l'affichage 
d'un message indiquant que la copie a été effectuée 
et invitant à continuer. En cas d'anomalie rencon- 
trée lors de l'écriture, un message d'erreur envoyé 
par le DOS sera affiché à sa place. Dans ce cas, 
vous êtes invité à placer la disquette système dans 
l'unité 0. Gageons que le cas le plus fréquent sera, 
par suite d'une erreur de frappe, "FILE NOT IN DI- 
RECTORY..." 





3: NEXT:REMOZ 


Es a 
USRZ=M+48 : DEFUSR3=M+S6:REMES 


CONTINUER “:REM74 
NOM DU FICHIER : ‘3:REM99 
ANS FCB di 
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CARRE 


ON he Gil Fe pus 
is me 
TE pu ne 
T 


pole poil Het pet pen jun 





um, 
' 


4} 
LE AN 
4 EL 






















170 ÿ 

180 È 

190 E 

21 F Lé BIS 

220 IF K$é= 

230 TO7U: 

28 IDIREM 

250 13 GOTCGEED à: R 

284 EILR ñ Par 

270 Dirt Er 2006 

28Ù Ë £ 7h20133 

2 7e 05:36:68 

3 #308 3 EDS NE LE Pa Du PE? da 

5 Dé: 2E8:200:254:29:700 
ESr1i/r1l4lr 15526: 0: 0 
G3208 7 LE 
Dr1137 273541 
493 125 125734 
HS 7 7 b & > 205 

5: 192 1 M 








utilitaire 









SI NON <ENTERS 923 


4 


117ri4is Re 
173) 25: 17:REM07 
7 


à DJ + 


2324 7 2452REMS2 
24357133: 172:REME 
132368: 32:REM4E 

#53 1252352: RENMF7 
215871177128; SOFREMS4 
3125: É0S: 8 D: REMISE 
iE jee nn 


.s 


Cri 


4 


on 


e| 
pr 
Lx | 


ED 


Lei 


DANS LE DRIVE ET “2AS:REMAF 


a EUR 





Roger Buvat 








Un complément à EDTASM 
version cassette 


Cet utilitaire complémentaire à EDTASM (d'où son nom 
CETASM) permet de sortir d'EDTASM, de travailler en 
Basic et de revenir dans EDTASM sans rechargement et 
sans perte des programmes source et Basic. 

Pour les utilisateurs d'un modèle 3 à cassette, CETASM 
permet en outre de charger EDTASM à 1500 bauds, ce qui 
est plus agréable. 


Avant de voir la réalisation pratique, voici le prin- 
cipe de CETASM. 

A son lancement, ce programme déplace l'origine du 
tampon Basic pour laisser le début de la MEV disponi- 
ble pour EDTASM. Cette zone est alors automatiquement 
protégée et CETASM se place à sa suite. 

L'origine de CETASM doit être de préférence une adres- 
se simple car elle sera sollicitée à chaque retour 
dans EDTASM. J'ai personnellement choisi 39900 mais 
elle peut varier (de 27000 à 60009) selon la taille 
mémoire, l'importance relative du programme source 

et celle de la zone Basic. 

Après le déplacement du tampon Basic qui s'implante 
immédiatement après CETASM, l'utilitaire charge EDTASM 
à 1500 bauds, revient à 599 bauds, et lance ce dernier 
après l'avoir modifié, pour eSter la "raz" au moment 
de la sortie. En fait, cette modification permet de 
revenir dans CETASM (à la ligne 459) qui terminera la 
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sortie d'EDTASM par un effacement de l'écran et la 
question "Cass?". 

Le retour dans EDTASM se fait à partir du Basic par 
la commande SYSTEM en passant par CETASM qui rétablit 
la vitesse à 509 bauds. 


Passons maintenant à la réalisation. 

Charger EDTASM à 1509 bauds signifie lire le program- 
me à 1509 bauds. Avant cela, il faut donc avoir écrit 
ce programme sur cassette à cette vitesse. C'est l'ob- 
jet du programme ECRI qui est très simple. 

La constitution de la cassette CETASM-EDTASM rapide 
peut se faire en deux temps. D'abord avec l'aide d' 
EDTASM (lent), entrez, puis assemblez CETASM et sau- 
vez-le sur la cassette en prévoyant à la suite une 
place nécessaire à EDTASM (à titre indicatif, CETASM 

+ EDTASM occupent au compteur les graduations 3 à 24). 
Entrez et assemblez également ECRI et sauvez-le sur 
une autre cassette. 

Enchaînez ensuite les opérations suivantes, après avoir 
“poké" Q dans les mémoires 17500 à 26999 (simple pré- 
caution) 

Faites une raz : Cass? L 

- puis : > SYSTEM 

- chargez EDTASM / *? EDTASM 


- chargez ECRI : 
- lancez ECRI (sans adresse) 


- chargez CETASM : #72 CETASM 
— lancez CETASM (sans adresse) :*? / 
et laissez faire... 





- continuez : Vous pouvez quitter EDTASM normalement par la comman- 
- chargez CETASM : de Q, 
- appuyez sur la touche Enter : — choisir votre vitesse : Cass? H 


et travailler en Basic. 
Lorsque vous voulez revenir dans EDTASM, faites 
SYSTEM /30900, c'est-à- dire l'adresse origine de 


ce qui doit donner un message d'erreur. Vous êtes en 
Basic et vous avez localisé la fin de votre programme 
CETASM sur la cassette, 


CETASM. 
- revenez à > SYSTEM 
- appuyez sur RECORD et PLAY Nous venons de voir la marche à suivre pour un systè- 
= lancez ECRI : *? /31000 me Modèle 3 cassette. Dans le cas d'un Modèle 1, le 


principe de CETASM peut, je pense, être utilisé en 


Pour ce qui est de l'utilisati c'est ès si à = = = = S 
N SE de & ec PURPLE SPRL E supprimant bien sûr, les iignes 129, 130, 200 à 90 


- faites une raz : Cass? L relatives à la vitesse de lecture. Il y a lieu de rem- 
- réservez une place en fond de placer l'adresse OFCH (retour au Basic) par 6CCH. 
mémoire pour votre programme Vous devez ensuite charger par : > SYSTEM 
assemblé : Memory Size? XXXXX successivement, EDTASM : *? EDTASM 
Sr memes puis CETASM : *2 CETASM 
- entrez : > SYSTEM avant de lancer l'exécution : ER 
PE RER 
CORRE cc Oro one 792D 7E 00170 ECR LE ñz(HL) 
O002ü : ECRI 792E CD6402  O180 CALL 264H 
00030 : 7931 23 09150 INC HL 
00040 ; {C) 1983 = TRACE et l'auteur 793? 10F9 Oü700 DJNZ ECR 
DOS OUEST ee men 7934 C1 Go?10 PüF BC 
4518 G0060 ORG 31000 PPAMNABES Oùz20 LINZ SUI 
06070 : 7937 CDF8D1 00230 CALL 1FEH 
7918 SEOD 00080 LD À: ODH OUZ40 ; 
7918 32114Z 0000 LD (4211H)7û 7938 &F 00250 XOR Â 
791D SECD 00100 LD 40 7938 321142 G07é0 LD (#211H)7h 
PONERCD Tee 00110 C&LL A LE 00270 ; 
792? Cb8707 O0i;o CâLL 387H 793E CDC901 00280 SORTIE CALL 1CSH 
7925 214648  D0130 LD HL:4646H 794i C3FCO0  O029Ù JP OF CH 
7928 O4iD 00140 LD BE: 1iDH 00300 ; 
792À C5 00130 SUI PUSH BC 793E 00510 END SORTIE 
752B OëFF 00140 LD E20FFH 00000 TOTAL ERRORS 


CETASM 
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âF XOR 
321142 D {4211H)7A 3 Cass 500 bds 
C30E4C 4#COEH 
217475 HL » BUFBAS 3 Deplacement 
22À440 (4084H)7HL 3; Basic 
CD4D1B 1B4DH ; NEW 
3E0D ; A>0DH 
321142 (8211H) 34 3: Cass 1500 bds 
7545 3E00 00180 LD 80 
7547 CD1202 00190 CALL 212H 
754À CD9602 00200 CALL 296H 
754D 214646 00210 LD HL:4646H 
7550 061D 00220 LD B>1DH 
7552 CS 00230 SUI PUSH BC 
7553 O06FF 00240 LD B:0FFH 
7555 CD3502 00250 LEC CALL 235H 
7558 77 00260 LD CHL) A -3 Lecture cassette 
79399 23 00270 INC HL 
7554 10F9 00280 DJNZ LEC 
755C C1 00290 POP BC 
755D 10F3 00300 DJNZ SUI 
755F CDF801 00319 CALL 1F28H 
00320 ; 
7562 AF 00330 XOR A 
7563 321142 00340 LD (#211H)24 3; Cass 500 bds 
00350 ; 
7566 218F75 00360 LD HLADRESS 
7569 22F54F 00370 LD (4FF 5H) 2HL 
756€ C3D34B 00380 JP 4BD3H 
00390 ; 
756F CDC901 00400 ADRESS CALL 1C9H 2 1CÈS 
7572 CD+230 00410 CALL 3042H 3; Cass? 
7575 C3FCOÙ 00420 ù JP OF CH : Retour Basic 
00430 5: 
7578 0000 00440 DEFW 0 
7578 O000 00450 BUFBAS DEFW ( 
757C 0600 00460 DEFW Le) 
757E 0000 00470 DEFW (a) 
00480 ; 


7537 00490 END LCEBUT 
00000 TOTAL ERRORS 


Camille Bochard 
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jeu 
CUBUS: 
un jeu pour TRS couleur 





I1 s'agit ici du premier programme que nous publions est affiché dans le coin supérieur gauche et dans le 
sur le TRS couleur, à la demande de quelques utilisa- coin supérieur droit est inscrit le nombre de parties 
teurs de ce matériel. Espérons que ce ne sera pas le restantes (il y en a trois). 
dernier...! (Ndir) ; ‘ 
Vous perdez une partie si : 
Le principe de ce jeu est très simple, il vous suffit 1) vous touchez l'un des deux piliers rouges ; 
d'actionner la manette à droite ou à gauche pour vous 2) une "météroïte" touche les fondations (la ligne 
déplacer. Une petite ligne orange qui sert de récep- rouge au bas de l'écran) ; 
tacle indique que vous devez attraper les météorites" 3) tous les cubes sont abattus. 
qui tombent du "ciel". 
Si vous désirez vous déplacer deux fois plus vite, Matériel nécessaire : TRS couleur (étendu) + manette 
appuyez.sur le bouton rouge de la manette. Le score de jeu. 
VOOR EEFE EEE FER EPEFEEEEETETEET 310 IF POINTCD,F) = 2 THEN TI=IT+1 : I=A 
2h cubus : JEU D’ADRESSE + 3 : J=A4 : GOTO 468 
ce + 320 IF POINTCD,F) = 3 THEN TT=TT+1 © I= 
4 ?+MAT,. : TRS COULEURCETENDU) + AS : J=A6 : GOTO 468 
re ; 330 IF POINTCD,F) = 4 THEN TT=TT+1 : 1= 
6 ?+ CC) WAUTELET YANNICK Æ A? : J=A8 : GOTO 468 
DA 2 22 di de De De D D De le D A A D ED Di ES SL ST  E STE 349 IF POINTCD,F) = S IHEN I=B1 : J=B2 
5Q YY=1 : G-8 GOTO 460 
68 F=1 35@ IF POINTCD,F) = 6 THEN TT=TT+] : I=B 
7Q CLSC) 3 : J=B4 : GOTO 460 
80 FOR H = @ TO 1 : FOR U= 19 TO 38 : SE 36@ IF POINTCD,F) = 7? THEN TT=TT+1 : I= 
TCH;U,4) : NEXTU,H B5 : J=B6 : GOTO 460 
9Q FOR H= 62 TO 63 : FOR U= 18 TO 38 : S 379 SET(D,F,E) 
ETCH;U,4) : NEXT U,H 380 IF TT = ? THEN GOTO 480 
1286 FOR H= @ TO 4 : FOR U= 19 TO 21 : SE 390 K=JOYSTKCB) : Y=JOYSTKC1) : P=PEEKCG 
TCH;U,4) : NEXTU,H 5280) : IF P = 126 OR P=254 THEN K=2 3 R 
11Q FOR H=58 TO 63 : FOR U = 193 TO 21 : =3 ELSE K=z1 : R=2 
SETCH;U;,4) : NEXTU,H 400 IF X < 20 THEN L=L-K : RESETCL+K;,20) 
129 FOR U = Q TO 63 : SETCU,39,4): NEXT : RESET(CL+R, 20) 
130 A=4 : B=8 :C=1:A1-4:A2-8:A3=12:A4=16 410 IF X > 29 THEN L=L+K : RESETCL-K, 20) 
1AS=20 :A6=24 :A7-28 :A8=-32 :B1=36 :B2=-40 :B3= : RESETCL-R;, 22) 
44 :B4=48 :B5=52 :B6=56 :K=1 :L=32 :R=2:TT=1 429 IF L=4 OR L=3 OR L=S THEN FOR H = i 
140 FOR H = À TO B TO 28: PLAY"L255;G" :  SETCRND(C8), RNDC7) 
158 FOR U = 26 TO 28 +16,RNDC8)) : NEXT : GOTO 482 
160 SETCH;V;0) 430 IF L=58 OR L=59 OR L=57 THEN FOR H=1 
170 NEXT U,H TO 28 : PLAY"L255;G" : SETCRND(6)+53,RN 
180 A=A+8 : B=B+8 : C-C+1 Dt?)+16,RNDC8)) : NEXT : GOTO 482 
198 IF À = 6Q THEN PRINT@4SS, "c";:PRINTe 448 SET(L,20,8) : SET(L+1,20,8) 
459, "u"; :PRINTE463, "“b";: PRINTE467,"u"; 458 GOTO 268 
: PRINT@471,"s"; : GOTO 210 469 F=1 : FOR Y = 1 TO 29:RESETCRNDCJ-1) 
208 GOTO 148 +1-1,RND(4)+25) : PLAY"L255;B;C" : NEXT 
21@ D=CRNDC7)%x8)-2 : E=RND(?) Ÿ' = FOR H\ = I -TO"J": FOR U= 26 10 29: R 
228 PRINT@1,G; : IF YY = 1 THEN PRINT@293 ESETCH;U) : NEXT U,H : I=@ : J=0 
pos TE 478 GOTO 210 
239 IF YY=4 THEN GOTO 498 48 YY=YY+1 : GOTO 60 
240 IF YY= 2 THEN PRINT@2S, "4x "3 490 PRINT6511,""3; : FOR À = 1 TO 15 : PR 
250 IF YY = 3 THEN PRINT@29, "444"; INTSTRING$(31," ") : FOR S = 1 TO 48 : N 
260 F=F+1 EXT S : NEXT 
270 RESETCD,F-1) 528 PRINT@173;, “cubus" 
280 1F F-30 THEN :PLAY"'L255;A;B;C;A;B;C; 519 PRINT@260, "UOTRE SCORE :":;G 
A;B;Cc" : GOTO 480 522 PRINTe449, "UOULEZ UOUS CONTINUEZ CO- 
290 IF POINT(D,;F) = 8 THEN PLAY"L255;A;B ND“: : INPUTA$S 
3C;D;E;F;G" : G=G+1 : PRINT@I,G; : F=1 : 530 iF A$ = "“O" THEN GOTO 50 
GOTO 218 54Q END 


308 IF POINTCD,F) = 1 THEN IT=TI+] : IA 
1 : J=A2 : GOTO 468 


qe Yannick Wautelet 
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logiciel 





Un traitement de texte 
tres beau, pas cher 





Le programme de traitement de texte publié initiale- 
ment dans TRACE numéro 5 et amélioré dans TRACE numé- 
ro 6 a fait couler beaucoup d'encre et a rencontré un 
vif succès si l'on en juge par le courrier reçu... 
toujours écrit à l'aide de ce programme ! De nombreux 
lecteurs nous ont proposé des améliorations et nous 
tenons à les féliciter et à les remercier pour leur 
contribution, tout particulièrement Monsieur Maurice 
Lhomme (Oullins). Parallèlement, Roger Brousmiche, 
l'auteur du programme, continue à faire évoluer son 
"bébé" et nous soumet régulièrement des corrections 

et améliorations qui, la plupart du temps, englobent 
celles des autres lecteurs. Nous vous faisons bénéfi- 
cier des dernières grâce auxquelles le texte peut main- 
tenant être justifié à droite. Les lecteurs recevant 
la disquette TRACE trouveront naturellement la version 
intégrale du programme MACHEC incluant ces dernières 
améliorations. (Ndir) 


La présentation d'un texte imprimé est nettement plus 
agréable lorsque la marge droite est constante. L'ali- 
gnement automatique de la marge droite est maintenant 
chose courante dans les logiciels de traitement de 
texte du commerce. Il est obtenu par le report de quel- 
ques blancs de fin de ligne dans les espaces déjà pré- 
sents à l'intérieur de la ligne (les premiers espaces 
sont doublés). Cette amélioration peut être implantée 
à peu de frais au "mini" traitement de texte décrit 
dans les numéros 5 et 6 de TRACE. 


La ligne 400 est modifiée pour l'appel de la sous-rou- 
tine 2000 à 2030 de reformatage de la ligne, après la 
frappe de 'ENTER'. 

4 la ligne 50, le ‘'bip' sonore est déclenché à JL-5 











iü RER 2 LITE 
(AS j : TRINGS 
30 30: Ti 
59 : N Émis 
de G)}7 PRINT S 
ië —Ë AND PFOSIO 
:R 

18 10 D ©: 

G EU HS 
& 0 +Â à SUR 120! ii 
EN C=2S ELSE MIR$(C71) REHÉ 
480 PRINT S(NO) 2 J=LENISINGI) à 
b4:27)3CHR$T14)5 = MizM : IF PEE 
COPIER" € To 40 ELSE HID$i 
HE lisnement 
1500 5: IF K=D 
iz 2iizis 
$i K=zk-1 : 
12 EN 1240 

a 





I 


+ 


(39) :STRINGS( 


EEE 


b 


(JL = nombre de caractères par ligne), pour signaler 
que les caractères suivants seront justifiés à droite. 


La modification de la ligne 460 empêche la confusion 
du texte à l'écran lorsque la ligne contient plus de 
63 caractères. 


Les modifications des lignes 80, 150, 160 et 180 per- 
mettent le déplacement du curseur (flèche haute ou 
basse), dans les lignes de plus de 63 caractères. Il 
ne faut cependant pas perdre de vue que la position 
courante du curseur définit toujours la fin de ligne 
lorsqu'on frappe "ENTER'. 


A la ligne 10, la variable ME (nombre de lignes maxi- 
mum par page), est définie différemment. On peut main- 
tenant mémoriser plus de 70 lignes sous niveau 2, 16K. 


Toutes ces modifications sont compatibles avec les 
versions disque et cassette décrites dans TRACE N° 6. 


I1 est toujours utile de faire 'RUN' avant d'attaquer 
une nouvelle page, pour 'vidanger' la zone du CLEAR 
encombrée par le texte précédent. 

Pour terminer, je crois utile de rappeler que l'appel- 
lation "traitement de texte' est très ambitieuse pour 
ce programme BASIC, à l'usage EXCLUSIF DES AMATEURS... 
Aucune comparaison n'est possible avec les logiciels 
du commerce qui comprennent toujours l'édition pleine 
page, avec le déplacement du curseur clignotant dans 
les quatre directions, les touches à répétition et 
surtout l'accès de nombreuses touches de contrôle as- 
surant des fonctions très variées. Et ils sont natu- 
rellement toujours écrits en assembleur ! 





T Az:I-N : DEFSTR : ME=FRE 
2 VEN CS= CIRE 

MID#(C:Nr1)3 : GOTO SO:REMB4 
: N=N-8 : GOTO SO:REMDS 
S PRINT S4: 5 N=N+B : GOTO 50 












SiNO): STRINCGS (.i 4 
1=201 THEN C=SiNOi+STRING 
SiNO) : GOTG 4G:REMOS 
a marse droits 4D 
& BETURN:REM7S 
DéiCsl-ir1;<2r09 THEN C=LEFT 
5 HeN+i:REMTÉé 
NDS 2: RETURNSIREMIAS 


Roger Brousmiche 
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modele 2 





Super DIR sur modele 2 





Nous allons d'abord indiquer les services rendus par 
ce programme. Nous parlerons ensuite de quelques dé- 
tails techniques. 


COMPORTEMENT DU PROGRAMME 


1) Demande du Numéro du Drive concerné (question in- 
dispensable pour les configurations multi-drives). 
2) Demande du numéro de disquette (question utile). 
3) Affichage des mots "Chargement Directory" à seule 
fin de faire patienter l'opérateur pendant quelques 
brèves secondes. 

4) Affichage de la DIRECTORY "utilisateur" et d'un 
menu de commandes. 


Le tableau peut contenir 96 noms, nombre maximum pré- 
vu pour les fichiers "non-systeme". 

Sur 1a lère ligne figurent le Nom du Fichier N° 1, 

la date, le Numéro de DIRectory (DRIVE) et celui de 
la DISQuette. 

On voit qu'il est facile de tirer de temps à autre 
une copier papier de ce tableau (par exemple lors des 
!BACKUPS"). 


Ce tableau est protégé de l'effet de rouleau. 
E 


n dessous, un menu propose les commandes suivantes :: 


LOAD des Programmes BASIC 
RUN " " " 


KILL d'un Fich. quelconque (du tableau) 


PURGE (analogue à cde PURGE Système) 


L 
R 
K 
P 
N 
D 


Avant de parler des commandes B et S précisons que 
les renseignements fournis par la commande D sont 
les suivants : 


Type, Long.enr., LOF, Extensions, Sect.Alloués, Sect. 
Utilisés. 
Les ? dernières commandes sont les suivantes 


B BASIC (retour au, le pgm restant en mémoire) 


On met en oeuvre les commandes en frappant simplement 
la lettre correspondante. Pour les autres commandes, 
. le programme demande ensuite le N° de fichier. 


Pour les commandes L, R, et D, l'entrée du numéro de 
fichier déclenche l'exécution de la commande. 


Pour les commandes K, P, et N, le nom du fichier est 
alors affiché et confirmation est demandée sous la 
forme classique (Y/N/Q). 

I1 faut noter que pour les commandes intervenant sur 
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DISQUE le nom de fichier réellement utilisé est de 
la forme : 


TOTO/BAS- Don Et 2855) 


Lorsqu'un fichier est tué, ou que son nom est changé, 
la case correspondante est immédiatement mise à jour 
en vidéo inversée. 


Certaines commandes "restent" dans le programme (K, 
P, N, D), alors que les suivantes le quittent 


ES ER DNS 


Immédiatement avant l'exécution de l'une ou l'autre 
de ces dernières commandes, un sous-programme de re- 
copie d'écran en mémoire est appelé. Ceci permet en 
exécutant un autre petit programme d'avoir ultérieu- 
rement et très rapidement l'image exacte de la situa- 
tion finale du tableau. 


I1 faut noter que les commandes L et R ne pouvant s' 
appliquer qu'aux seuls programmes BASIC, le nom de 
ceux-ci doit être muni d'une extension commençant par 
B (comme dant TOTO/BAS). Dans le cas contraire, l'or- 
dre est rejeté. Si l'on est certain qu'il s'agit bien 
d'un programme BASIC, on aura toujours la ressource 
de renommer le fichier avant d'exécuter une commande 
L ou R. 


Ceci nous amène à dire un mot sur les contrôles ef- 
fectués (ou non effectués) par le DOS sur le nouveau 
nom : 
Ainsi : 

1TOTO/BAS sera REJETE 

toto/basic Es ï (ext. de plus de 3 car.) 
TOTOSUPER/b ù (nom trop long) 


Mais : 


TOTOXSUP " ACCEPTE (sous la forme TOTO) 
TOTO/ " “ " 

TOTO?BAS: 2 mi je 0 

etc... 


Il en résulte le risque suivant 


Nous sommes par exemple sur le DIRVE 2. 

Nous changeons le nom TOTO/B en TOTO?BAS. 

Le nom TOTO/B:2 est devenu TOTO:2 (au niveau du sys- 
tème). 

Si maintenant nous voulons tuer TOTO?BAS, le program- 
me va lancer l'ordre KILL "TOTO?BAS:2. 

En raison de la présence intempestive du "?", le sys- 
tème interprétera l'ordre comme KILL TOTO (drive non 
défini) et tuera le premier TOTO venu. 

C'est pour éliminer ce risque que dans la subroutine 
NAME, le programme complète les contrôles faits par 

le DOS en interdisant la présence dans le nom, d'un 
signe ou d'un espace, si ce n'est "/" en un seul exem- 
plaire et à condition qu'il ne soit pas en dernière 
position. : 
Nous utilisons dans ce programme la routine SVC RENA- 


ME, mais il faut noter que les choses seraient 1es 
mêmes avec l'ordre BASIC : 


NAME "TOTO/B" AS "TOTO?BAS" 


Seule la commande RENAME et la 

mentionnent le nom réellement p 
système. Ces commandes peuvent 

et POKE, mais la programmation 

exécution plus lente. 





CONSIDERATIONS TECHNIQUES 


Le programme utilise quatre routines SVC (SCROLL, 
VIDRAM, RENAME, SORT et RAMDIR). 

Nous ne ferons de commentaires que sur les deux der- 
nières. 


Routine SVC SORT 


a) Cette routine utilise BUBBLE qui est un très mau- 
vais algorithme (ce tri est battu par un tri QUICK- 
SORT en BASIC à partir de 700 éléments environ). 


b) Ce tri ne peut trier que des éléments parfaitement 
contigus (c'est un tri direct). 


c) Ce tri est utilisé ici car le nombre d'éléments 
à trier reste toujours faible et une routine SVC ne 
prend pas de place en mémoire BASIC. 


Routine SVC RAMDIR 


Le problème tient au fait qu'il faut indiquer a RAMDIR 
l'adresse à partir de laquelle la Directory doit être 
écrite en mémoire. 

On procède de la façon suivante : 


a) Dans le sous-programme d'initialisation une table 
de 96 éléments (éléments de 34 octets) est créee dans 
1a zone chaînes de caractères. 


b) Dans le sous-programme RAMDIR, on calcule l'adres- 
se de Fin de cette table. C'est cette adresse de Fin 
(en réalité Fin - 1) qui sera le début de l'écriture 
de RAMDIR. Le (-1) est destiné à faire commencer les 
enregistrements par le 1er caractère du nom à la pla- 
ce du caractère ":". 


CONCLUSION 


Le présent programme est un outil puissant qui pallie 
certains défauts de la Directory du DOS. Il permet 
notamment de trouver rapidement un fichier, d'obtenir 
des copies sur papier qui soient utilisables, enfin 

de nettoyer au jour le jour les disquettes des fichiers 
d'essai, programmes abandonnés, etc... 


Notons qu'un tel programme BASIC nous paraît impossi- 
ble à réaliser sans la fonction PEEK. Comme la fonc- 
tion NAME peut être réalisée par la routine SVC RENA- 
ME, il nous semble que PEEK et POKE remplacent avanta- 
geusement (à condition de ne pas utiliser POKE incon- 
sidérement) NAME et OCT$.* 


* (voir à ce sujet TRACE n° 5) 


Le nom ESPACE/B a été changé en BLANCS/B - Sortie par R45 


ADRESSE ‘EF. 





tLun-18-Jan-178r)- 
EXDATMÉS, .. 
Es se 


ANALMAF ER. 2 
IFAST/ER. . 
IF 


BINAIR, B. 
BITMAPF/E, 
EGRNES/E. 
BTD/Re 
EUFFER/R. 
CALENAS ER. 7: FASTRAND/ER. 
CACNUM/B..,.=1@:FIELD/E.... 
CARJ'E......=11:FORNEXT/PB. 
CAR&/B,,.,..=12:FUSCPRS/E.. 


BSTi/E.. 
FAST3/E... 


CUECIRe 


FIFASTS EP... 


CHR/B, sue =13: FUSION/R....=232Z: PREMIERS 
SIPRINT/B.....=5 


COMPAST/E,.,zi4; IFTHEN/E... 
COMSUE6é4, ...=15:IMPEC/E... 
DATHS4. ,.,,,,=16: INPUT/E.., 
DICHOVIR/E,.=17: INSERCAR/E 


DOFILE.....,=18:INSERCH/B...=37:RE3S/DON.. 
DT /Fu ones =i9: INSERS/E....=38: RHD/E..... 
ZOIINTI/E....,,—393 ROTG/E. 


NOUVEAU Hom 7 _BILANCS/E 


45 





INER/BAS 


S'FASTRAND/E, : FATSITU/BAS, =4é; TERSER/E.... 
:: PHONE /DON..,.=47:TID/P.....,.. 

29: FHONE/DX1..,.=48: TIDVIR/E.... 
3 PHONE. ..,,,,=49: TRAVS/DON..,. 
31: FLUS/E.....,=S0:TRISS9/CON.. 
/B..=51: TRIDOS/B.... 


35: RALFÉ8/E.. 


DIR = 8 i---6G 
PLUS RUE RTC TER RENTE 


=41:SOCRESTE’E. 
=42:ST050580. . 
<4T; SWAFDEC/E,., 


=. 44; SWAPDECI/E., 


=45 : SHAFDECEZ/B.. 


Z1 VIRGULE/E.., 


CDN OL PL VOS ON 


ô 
£ 
5 
£ 
& 
2 
7 
2 
Ré 
7 


E 
7 
8 
3 
a 
1 
3 
4 
5 
8 
77 


100 ? Auteur: Bernard BESSE 


200 ” 

300 ? 

40@ CLEAR 10800 

500 ? 

608 GOSUR Z21@8°—-— INIT 

708 GOSUR 1300’ -— CHARGEMENT 
808 CLS 
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300 GOSUR 66@@°--— AFFICH 

1208 GOSUE 7800 -- CMD 

1100 .GOSUE 1910@0°-- FIN 

1200 

1300 :REM< CHARGEMENT > 

1400 PRINT'Chargement Directory" 
1500 GOSUR 2300’ --— RAMDIR 

1600 IF NF<;Q THEN 1809 

1700 PRINT VI$;"Directory VIDE"; VN$:GOSUR 191@0'-- FIN 
1800 :IF NF=1i THEN Z000 

1900 GOSUE 4800’ -- SORT 


<2000 :GOSUR 5400’ —-- INVERSE 
2108 RETURN 

£200 ” 

Z300 *REM< RAMDIR ÿ 

2408 ? Adr deb et fin Vi$() 


250@ XX=VARPTR(VI$(1)) :GOSUE 194@G:AD=XX"-- ADR 

Z60@ XX=VARPTR(IVIS(MD)):GOSUR 194@0:AF-=XX"--— ADR 

2708 AA=AD-AF: RR=(MD-1)#LG 

2800 IFAA=RR THEN 3100 

2900 PRINTVI$;"Adr.DER & FIN non comp. av. TAILLE Table"3;VN#:GOSURB 191@0°-FIN 
300@ ’ Ramdir 

3100 :A1(7)=AF-1°-- l’adr pour ecrire la DIR est cellle du der Vig —1 

3:00 DEFUSRI=VARPTR{IAI(1)) 

3300 A1(B)=USR1(@) 

3400 IF Ai(G)=@ THEN 3900 

3500 PRINT'Erreur RAMDIR — DOS NR"3:3A1(0@) 

3600 IF A1(@)=8 THEN PRINT'DRIVE N’EST PAS PRET" 

3700 GOSUR 19100’ -FIN 

3800 Nbre de Fichiers/DIR: NF 

3700 :NF-=0 

4000 FOR K= A1(7) TO A1(7)+3764 STEP 34 

410Q CZ=PEEK(K):IF CZ=35 THEN 4500 

4200 IFCZ:>58 THEN PFRINT'Erreur marques enreg DIR ai'adr="3;K:GOSUR 191@0'--FIN 
4300 NF=NF+1 

4400 NEXT K 


4500 *AZ(S)=K-33:AZ(3)=AF"-- Parametres de SORT 
4680 RETURN 
4700 


4800 :REM< SORT :% 

4900 DEFUSR?2=VARPTR(AZ(1)) 

5000 A2(@)=USRZ(@) 

5100 IFAZ(O)>;OTHEN PRINT'Erreur Nr'3A2(0);VIS:ER$S(AZ(D)):; VN#:GOSUR 19100’ -FIN 
5:00 RETURN 

5300 ’ 

5400 :REM< INVERSE x 

5500 ZF=MD\Z:IF NF<ZF THEN ZF=NF 

5600 FOR K=i TO ZF 

5720 SUAP VIS(K),VIS(MD+1-K) 

5800 NEXT K 

5900 Extraction Noms 

68G@ FOR K=1i TO MD 

6100 IF K > NF THEN V2$(K)="2":GOTO0 6300 

6208 XP=INSTR(VIS(K),"1")-1:0V2S(K)=LEFTS(VIS(K),XP) 

6308 :NEXT K 

6488 RETURN 

6508 ? 

6608 :REM< AFFICH à 

67@Q DEFUSR3=VARPTR(A3(1)) 

6800 A3(@)=USR3(H) 

6900 PRINT a(@,@8),V2$(1)3;STRING#S(12-LEN(V2$(1)),",")3"= 1}---("3;3JS5$;"-";QUS#3" 
MOS$3;"—" 353 ANS3")——-{ DIR ="3;DR;"}---C'"5DK$5" JS STRINGH(2Q,"-")5"I"; 
78@0@ FOR LI=2 TO NL+1 

7100 FOR K=LI TO MD STEP NL 

7200 PT=12-LENCVZS{K)):2T=(C(K-2) \NL)#16:PRINTTAR(T)VES(K) SSTRINGS(PT,".")3"=" 
INTUSING"##";:K32PRINT"I": 

730@ NEXT K 

740@ NEXT- LI 

750@ PRINT 

76@0@G RETURN 

7700 ’ 

780@ :REM< CMD > 
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79800 :GOSUB 171400°--— SAISIE 

8008 ON CD GOSUR 8300,92:00,.7400, 10300, 14100, 15300.146700, 17008 
8100 GOTO 7900 : 

8200 ” 

8300 :REM£ LOAD/RUN 5% 

8408 XP=INSTR(IVESE(NR),"/B"):IFXP<>Q THEN GOSUE 910@:G0TO 8680°-—-IMAGE 
8500 PRINT'Load/Run de "“3V2$8{(NR)3" interdit {/B)":G0TO0 8900 

8600 :CLS:IF CD$="L" THEN PRINT"'LOAD'3ELSE PRINT"RUN"; 

8700 GOSUR 13100’ --NOM ACTUEL 

8800 PRINT" DE à: ":W1$:"DEMANDE" :IFCD$="L"THEN LOAD W1$ ELSE RUN Wi$ 
8908 :RETURN 

5008 

9100 :REM“ IMAGE *% 

92@0 DEFUSRI=VARPTR(A4(1)):A4(Q)=USR1 (@) : RETURN 

9300 

9400 :REM< KILL à 

9500 :PRINT'KILL —>"3VIS3VZS(NR) 3: VNS 3" CY/N/G)" 3 2 YNS=INPUTS C1): PRINTYNS 
9609 IF YN$<>"Y" THEN 10000 

9700 GOSUR 13100°--NOM ACTUEL 

9800 KILL W1B:V2ZS(NR)="v":XC=POS (D): YC=ROU(G) : GOSUBR 13400’ --PEINTURE 
9908 GOTO 10100 

10000 :IF YNS:>"N" AND YN$<>"O"THEN 9500 

191@Q :RETURN 

18:00 

10300 :REM< NAME > 

10400 :PRINT'C’'est "3VIHSIVZSCNR) 3 0VNS3" (Y/N)" 352 YNS=INPUTS (1) :PRINTYNS 
10500 IF YN$="N" THEN12900 

10600 IF YN$<:>"Y" THEN 10400 

18700 :NV$="":INPUT"'NOUVEAU Nom "3NVS#:IF NV$=""THEN 12900 

10800 BF=@:LV=LEN(NVS ) 

10900 FOR K=1 TO LV 

11000 LSET CK$=MIDS(NVS.K3 1) 

11100 IFCK$S{>"/"THEN 11500 

11200 IF K=LV THEN 11800 

112300 FBF=RF+1:1F BF>i THEN 11800 

11400 GOTO 11900 

11500 :IFCK$>="A"ANDERS$S<="Z"THEN 11900 

11600 IFCK#>="Q"ANDCK$<="9"THEN 11900 

11700 IFCK$:="a"ANDCKS<="z"THEN 11900 

11800 :PRINT"'Espace(s) ou signes(s) a supprimer":G0TO 10700 

11900 :NEXT K 

172008 GOSUR 131@0:LSET WZ$=NV#S’—-- NOM ACTUEL 

12100 XX=VARPTR(W1$) :GOSUR 19408:45(3)=XX"-— ADR 

12200 XX=VARPTR(WZS):GOSUE 194@0G:A5{5)=XX"-- ADR 

12300 DEFUSR5=VARPTR(AS(1)):A5(@)=USR5 (0) 

12400 IFAS{(D)=-QOTHEN 12800 

12500 IFAS(@)=11THEN PRINT'CE NOM EXISTE DEJA":GOTO 10708 

12600 IFAS(G)=19THEN PRINT'FAUTE(S) DANS NOM":GOTO 10700 

12700 PRINT'Origine RENAME — ERREUR DOS" 3;A5(0):GO0T012900 

12800 :VZS(NR)=ENVE: XC=POS(Q) :YC=ROW(G) =: GOSUR 13400:GOT0 12900’ --PEINTURE 
12900 :RETURN 

13000 

13100 :REM< NOM ACTUEL 5% 

13700 LSET W1$=VZS$S(NR)D:XP=INSTR(IWIS," "):MIDS(W1$, XP) =DR$&: RETURN 
13300 ? 

13400 :REM< PEINTURE > 

13500 NK=NR-1:IF NK=Q THEN Y=D:X=D:GOTO 13800 

13600 Y={NK-1)MOD NL +1 

13700 X=({(NK—-1)\NE)#16 

13800 :L=LEN(VUZS(NR))D:PRINTACY XD), VIS VEZS(NR) 3 STRINGE(12-L,",")3; UNS: PRINTA{YC, XC 
2355 

13900 RETURN 

14008 

14100 :REM< PURGE à 

14200 FOR NR=i TO MD 

14300 IF VES(NR)="*" THEN 15000 

14400 :PRINT'Kil1 Nr'sVISENRE UNS: " CY/N/@Q) "3: YNS=INPUTS (1) :PRINTYNS 
14500 IF YN$="N'THEN 15000 

14600 IF YN$="G@"THEN15100 

14700 IF YN$<>"Y"THEN 14400 

14800 GOSUR 9409°—-— KILL 

14900 IF YN$="@" THEN 15100 
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15000 
15100 
15:00 
15300 
15400 
15500 
15600 
15700 
15808 
15900 
16008 
16100 
16200 
16300 
16400 
16500 
16600 
16700 
15800 
16900 
17000 
17100 
17:00 
17300 
17400 
17500 
17600 
17780 
17800 
175008 
18000 
18108 
18700 
18300 
18400 
18500 
18600 
18700 
18800 
18900 
19000 
19100 
19200 
19300 
19400 
19500 
19600 
XX=XX 
19700 
19800 
19700 
:0000 
z0100 
z87z00 
Zz8300 
Z20400 
z0500 
Zz0600 
z0700 
z0800 
zQ7008 
Z1000 
Z1100 
Z1z00 
Zz1300 
Z1400 
Z1500 
21600 
Zz1700 
z1800 
Z1900 
Zz:000 


=NEXT NR 
: RETURN 


2REM< DETAIL ÿ 
LSETTF$S=MIDS(VIS(NR),16,1) 
LSETRLS=MIDS(V1S{(NR), 17, 1) :RL=ASC(RLS) 
IFTF$="F"AND RL=@G THEN RL=ESé 
LSETXTS=MIDÉ(VIS(NR),18, 1) :XT=ASC(XTS) 
LSETNSS=MIDS{V1S$(NR),21,2) =NS=CVI (NS$) 
LSETLES=MIDE(VIS(NR),23, 1) :LB=ASC(LES) 
LF'I=(NS-1)#x2ZSé6+LB+RLELF !=INT(LF!/RL) 
LSETNAS=MIDS(V1S(NR),19,2) :=NA=CVI (NA) 
PRINTVIS3VES(NR) 5; VNS ; 


PRINT" # Type=";TF$;" ! LRL="5RLj": LOF="SLF! 3j"! Ext="i{XT;"i"$ 
PRINT" Sa=";NA;"! Sut=";NS;"#" 

RETURN 

:REM< BASIC > 


GOSUR 9100:CLS:CLOSE:PRINT"'PROG. toujours en Memoire":END’--IMAGE 


5REM< SYSTEM > 
GOSUR 91@@:CLS: CLOSE : SYSTEM’ --IMAGE 


3REM< SAISIE © 
IPRINTVISS"'L,R,K, PSN, D ou B,S"3;VN$S" "5: CD$=INPUTS(1):PRINTCD$ 
IF CD$="L" THEN CD=1:GOTO 18400 

IF CD$="R" THEN CD=2:GOTO0 18400 

IF CD$="K" THEN CD=3:GOTO 184008 

IF CD$="N" THEN CD=4:GOTO0 18400 

IF CD$="P" THEN CD=5:GOTO0 18900 

IF CD$="D" THEN CD=6:GOTO0 18400 

IF CD$="R" THEN CD=7:GOT0 18900 

IF CD$="S" THEN CD=8:GOTO0 18998 
GOTO 17400 
SPRINTVIS35"NR" 3 UNS; :N$=" "2: INPUT N$ 
IF N$=°"" THEN 17400 
NR=INT(VAL(NS) ) 


IF NR<=Q OR NR>MD THEN 18400 

IF V2$(NR)="+" THEN PRINT "+ n'existe pas":GOTO 18400 
: RETURN 

:REM< FIN > 


PRINT'FIN Anormale":CLOSE:END 
? 


:REM< ADR 
LX=1:GOSUE 19800:Xi=XX:GOSUR 198@@:XZ=XX’-- DEPLACEMENT 
X1=PEERK(X1):X2Z=PEERK(XZ) XX !=X1+256xX2Z:IFXX'<1277468 THEN XX=XX'!:RETURN ELSE 


!—65536:RETURN 


? 


:REM“ DEPFLACEMENT 

XX=XX+LX 

: RETURN 

:REM£ ERR à 

IF ERR<+6 THEN 20600 

IF ERL <> 199G0THEN 21500 

GOSUE 21700: RESUME 20000?’ --OVERFLOW 

IF ERR <> 353 THEN 21700 

PRINTA(Z23,27),V1$5;"#xxx "5; VZS(NR)5" NON TROUVE x##" 3 VNS 

IF ERL<:S8GO0THEN 21000 

RESUME 6600 

‘IF ERL<>9SGOTHEN 21500 

RESUME 10100 

SIF ERR£%54 THEN 21500 

CLOSE 

PRINTa(23,27),ERR3VIS$;"#x#xx "SUZS(NR)3" non PGM basic *#*x"3;VNS$S:RESUME 6600 
‘ON ERRÔR GOTO @ 

tREM< OVERFLOW ÿ% 

IF XX>@THEN XX=XX-32768+LX-32768 ELSE XX=XX+32768+LX+32768 
RETURN 
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22800 
22900 
23000 
23100 
23200 
23300 
23400 
23500 
23600 
23700 
23800 
2390@ 
£24000 
24100 
24200 
24300 
2440G 
24500 
Z4600 
Z4700 
z4800 
z4900 
Z5000 
z3100 
25:00 
25300 
25400 
25500@ 
256800 
25700 
25800 
259700 
z6000 


z6100@ 
Z6:00 
26300 
z6400 
Z6500 
£6600 


SREM< INIT à 

DEFINTA-Z:ON ERROR GOTO ZG200 

ICLS:DR=-1: INPUT'NR de DRIVE.,."3DR:IF DR <Q OR DR >3 THEN 22300 

DR$=STRS (DR) =MIDS{DRS, 1,1)=":" 

INPUT"DISQuette...."3;DK$:IFDK#=""THEN22300 ELSE DK$=LEFTS$((DK$+" 14) 
DTS=DATES:DTS#=LEFTS(DTS, 12) :JS$=LEFTS(DT$, 3) :MOS=MIDS(DTS$, 4,3) : QUS=MIDS (DT 


2) :AN$= RIGHTS (DTS; 4) 


PRINTJS$;" ";QU#;" ":MO$;" "; ANS 
GOSUEL. 19400 —- ADR (Appel Factice pour creer var. 
VR=-1:FA=0 
VIS=CHRS (26) =: VNS=CHRS (25) :CK$=" 1": TF$=" 1" ERLS=" 1": XTS=" 1" =NSS=" 17" 
LB$="i1":NAS=" 127" 
ss Init RAMDIR 
A$=""234567890123456789012345678901234" 
MD=96:DIM VI$(MD),V2$(MD) , 
Ai=1G:DIM Ai(A1):N=Q"-- N=Q--i5 tte la DIR/ DR nr Dir 
Ai(1)=1363@:A1(7)=1536:41{3)=DR:A1(4)=3584:41(5)=N:AÎ(6)=8448 
Ai(7)=-11000°-- val prov debut RAMDIR 
AXE EDR RE) ENST STAR) 1508? 
Crea Vig$() 
FOR K=i TO MD:VI1$(K)=""+ AS:NEXT K 
Init SORTDOS 
A2=16:DIM AZ(AZ) 
A2(1)=14398:42(7)=0669:A2(4)=4357:A7(6)=1536:47(8)=284:47(10)=9728 
AZ(12)=11776:A7(14)=-207:42(15)=-15616:47(16)=-15099 
4 Entree 4 parametres 
P=Q:AZ(7)=P: LG=34:A2(9)=LG: 
CARE AZ(5)=0’--Val Prov 
Err SortDOs 
ER$(1)="FIN ARG à 
ER$(2)="DER ARG : 
ER$(3)="Lg. ELEM 
ER$(4)="Lg. ARG @" 
ER$(5)="Adr DEB > Adr FIN" 
L Init SCROLL 
Se 4:DIM AG(AG)1AG(I)=766:A3(2)=18112Z: 
Init. AFFICH 
CL=S:NL=(MD-Z)\CL +1:H=NL+i 
IFH< <OTHEN H=Q ELSE IF H:22 
Init IMAGE 
:1DIM A4(A4)1A4(1)=74176:A4(2)=1536144(3)=1:44(4)=8448:44(5)=-4090:44 16 


de 1a Routine) 


SWU=G:AZ(I11)=SU: LK=IiZ:AZ(13)=LK 


FIN 
FIN 
a" 


EPEME 
EPEN? 


A3(3)=6974:A3(4)=-13873 


THEN H=22 


A4= 


res 


Init RENAME 
W1$S=STRINGH(15," "):WES=STRINGS(135," ") 
AS=8:DIMAS (A5) :A5(1)=12094:A5(2)=8448:A5(3)=0:A5(4)=4352: 
A5(6)=:07:45(7)=-15616:45{8)=15099 
RETURN 
TRRHHKX 


A5(35)=0 





Bernard Besse 


LISEZ ET FAITES LIRE 





TRACE N° 8 - Mars 1984 - 49 


= 
En 
Ex 
D 
Q 
© 
E 


mathématiques 


La magie 
des nombres 











Out 
ALORS  J'AVAIS 


or CINQ ans 
ER DEUX 


POISSONS !! 









“LA MAGIE DES NOMBRES" OU 
"L'INFORMATIQUE AU SERVICÉ DES MATHEMATIQUES" 


Léonardo Fibonacci (dit Léonard de Pise) inventait en 
1202 la suite dite Fibonacci. Or, cette suite possède 
une fantastique propriété : 


lim Un+1 


= Constanté 
n— + Un 





Cette constante qui est l'une des deux racines de l'é- 
quation du second degré x2-x-1=0, fut plus tard appe- 
lée "nombre d'or". Autrement dit, le carré du nombre 
d'or est égal au nombre d'or plus 1. Ce nombre fut par 
la suite énormément utilisé en peinture pour détermi- 
nér les proportions d'un tableau. 





Une chose est évidente : la suite de Fibonacci s'adap- 


te très bien à la programmation. Voici donc un program- 


me qui donne pour tout rang n, sa valeur de Fibonacci 
ainsi que celle du nombre d'or associé. 


18: INPUT "N (22) 
?";N:UD=I1:UI=I 

11:FOR 1=2T0 N:U= 
UB+U1:PRINT I]; 


U;U/UI 
12: UB=U1 : U1=U: 
NEXT I 





Maintenant intervient la déduction informatisée : 
d'après l'équation x2-x-1=0, le nombre d'or à =1+V5 
2 





l'autre valeur étant une "solution bâtarde"). Le pro- 
gramme qui suit calcule, pour tout rang n, la valeur 
du rapport de 31 sur U, : 


19: INPUT "N (22) 
?'";N:UD=]:U1=1 

11:FOR I=2T0 N:U= 
Ug+U1 


12: UB=U] : U1=U: 
NEXT I] 

13: PRINT N;3 CCC1+S 
9)/2)NN)/U1 





Avec ce programme, on remarque que plus n est grand, 
p q : 
plus le rapport tend vers une valeur limite à : 


æ 1,381966011 


Or, tout le monde (!) aura remarqué que cette valeur 
est égale à 3-0 ; ce qui nous conduit à une formule 
asymptotique : 


D, = èn 
32 ; 3 
On remarquera que si n>10 la marge d'erreur est infé- 
rieur à 0,01 % ! 
Et voilà, par l'informatique, une constatation à per- 
mis l'élaboration d'une formule mathématique... 


.-. (vérifiez, ça marche !) 


EEE —————— "ven Clazmn 
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enseignement 


A 





Il vous 
raconte 


des 
histoires 


ALLINOOd 





Le PC-1211 ou TRS80 PCI relié à un magnétophone à cas- 
sette est un ordinateur parlant (et chantant). Voici 
un programme qui s'adresse à tous les parents, fran- 
çais ou étrangers, qui ont un enfant en âge d'appren- 
dre à lire et qui peut ainsi progresser en lecture en 
se divertissant, comme avec un "livre-disque". Une 
histoire" se déroule par séquences de 43 phrases au 
maximum, avec les phrases enregistrées sur cassette. 
L'exécution débute’en mode DEF avec SPC. L'ordinateur 
signale alors qu'il faut mettre un numéro en ligne 2 
du programme (numéro ou étiquette de 1 ou plusieurs 
caractères dont seuls les 7 premiers sont utiles) qui 
indique la position de la première séquence de l'his- 
toire sur la cassette. Après cela, faire SHFT A. Tou- 
tes les opérations a effectuer sont précisées. Quand 
l'ordinateur demande un nombre de lignes, entrer un 
petit nombre pour un débutant en lecture, ou taper 

sur ENTER : il saura que c'est 43. Dans une histoire, 
la 2ème fois que l'ordinateur affiche CASSETTE PRETE ? 
il faut supprimer l'étiquette de la ligne 2 sans lais- 
ser d'espace (INPUT'"'") puis refaire SHFT A. Ce sera 
ensuite automatique pour les séquences suivantes. Mais 


RME TER 
MERE 
PAUSE " CHOI 
# DE LA SERI 
EC SeRAUSEN 
HOTE PRO : 
22 INPUT #97": SEPRINT "L.2: 
PRINT " EAIS HG 7 5 PUIS 
SENCERSONeR: SHFT À 

EREMRSAUITE 6: "A"PRINT “ C 
Lé FICHE GRI ASSETTE PRET ë 
SE. ": RETURN 
SPRINT " "CS FICHE GRISE 
sU$sE#: PRIHTSES 
RETURN OMS + 5 STAR 
4: nu PAUSE LL #& 


ELIE FANCHOUX 








TiE=43: INPUT " 

HOMBRE 
FÜR A=3TO 3E 
TEF 3:C$<A$ 


28 Dé=A$CA+ 


RINT f"ifc 
1241: GOSUB 3 : REMOTES RE  1S:HEËXT A:GOTO 
:NEXT A: GOTO C: SON 11 


E 7"2PRINT " 1di"=" 


CLEAR : 
G “tit” 


T'ICÜSUE 2 RIS 





si vous avez enregistré chaque séquence d'une même 
histoire avec la même étiquette, cela évitera cette 
manipulation mais rendra le retour en arrière plus 
aléatoire. 


Pour enregistrer les lignes écrites, faire SHFT =. 
Entrer 7 caractères à la fois, espaces, virgules, 
traits d'union ou apostrophe compris. Une ligne af- 
fichera 3 groupes de 7 caractères ensemble. 

À l'enregistrement des phrases parlées, on pourra mo- 
difier la durée du son en changeant la valeur 124 en 
lignes 9 et 14. 124 fait durer un peu moins de 10 s 
suivant l'appareil utilisé. Une baisse de 1 unité aug- 
mente le temps de 0,59 s en-dessous de 120. On entend 
un sifflement de 5,2 s puis des séries de grésillements 
A l'enregistrement, il vaut mieux ne pas parler pendant 
les première et dernière secondes. A l'audition, on 
n'entendra guère les sifflements et grésillements. 
Après une ligne enrégistrée, on entend un "bip". 

Après l'enregistrement d'une séquence écrite, on peut 
s'arrêter et éteindre l'ordinateur. On enregistre le 
son avec SHFT B. SHFT C fait démarrer la lecture. 


I: PAUSE "LIR 
Es": PAUSE À$ 
CE-l1sA$CBIs 
A$CA: PRINT 
f'"sati2dis 
NEXT E 
153:IF AZ=INT € 
R-2FEEP 1 


GROUPE; ": 
IHPUT A$CA+2 
):G0T0 15 

11:PRINT "NO EN 

L.135 B 
12:"E"PAUSE "EN 
REGISTREMENT 
Ms PRINT "MIC 


5 "5B 


17: "C"PRINT "M2 
GÜTO 4 


SPRINT "2": 
PRINT "MICRO 
OH EH MIC:s 
REC 
14: FÜR EzdTO 13 


“sÈI'E QSTEF 5: 4=B+ 


Elie Ranchoux 
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Le tri dans la poche 





Matériel PC-1500 


Qui n'a jamais fait un programme de gestion de carnet 
téléphonique, d'annuaire, etc...? Et qui n'a pas eu 
de problèmes pour y inclure une routine de tri alpha- 
bétique ? 


Voici la liste de deux routines, l'une pour un tri 
numérique, l'autre alphanumérique. Dans la première, 
le tri s'effectue sur le tableau A(*) et utilise les 
variables U, W et I. 


— 


Dans le cas du tri alphanumérique, le tableau est A$ 
(*) et les variables utilisées sont U,W,I. 

N est la dimension du tableau. 

La méthode de tri employée n'est pas la plus rapide 
mais elle est la plus simple le programme scrute 
tout le tableau ; si A(x)< A(x+1) il échange les deux 
valeurs (O£x<N-1). Le programme considère que le tri 
est terminé si, pendant la totalité de la scrutation 
du tableau aucun échange n'a été effectué. 

Voilà ! À présent que vous avez la routine et son mo- 
de de fonctionnement, il ne vous reste plus qu'à l'a- 
dapter à vos besoins... 


20 


>-1GO0OT0 6598 


659092:W=-1:FOR I=1 (£) 


TO N 65039: RETURN 


65819:1F ACI)D<A(I- 


(C) Daniel GLAZMAN 1)LET W=1:U= CC) Daniel GLAZMAN 65918: IF A$CID<A$C 
CC) TRACE ACID:ACI)D=A CC) TRACE I-1)LET W=]: 
Tri numerique I-1):4c1-1)= | Tri alphanumer i que J$=AS(I): ASC 
U:BEEP 1,9 12=A$CI-1):A 
65220:NEXT I:1F W< $C1—-1)=U$: 
BEEP 1,9 


65008:u--1:FOR 1=1 65828: NEXT I:IF W< 


TO N >-1GOT0O 6508 
(2) 
65938:RETURN 





Daniel Glazman 





nouveau matériel 








Sharp PC-1401 





Ca y est ! Un nouveau pas dans l'informatique de po- 
che vient d'être franchi par Sharp ! En effet, le der- 
nier-né de la famille Sharp "pocket" est peut-être le 
plus étonnant, jugez donc : 


Sa taille est d'1,5 fois celle du PC-1251 mais sa puis- 


sance est de loin supérieure : 

La machine est divisée en 2 parties : 
est l'ordinateur Basic, l'autre est la calculatrice 
scientifique. 


Commençons par la partie Basic elle est très res- 
semblante au PC-1251, sans touches programmables mais 
avec des touches préprogrammées (comme sur PC-1245). 


Le Basic occupe (tenez-vous bien !) 40 Koctets en mé- 
moire, la mémoire RAM étant de 4,2 K ; de plus le Ba- 
sic et la machine font que le PC-1401 est compatible 
avec les PC-1211, PC-1212, PC-1251, PC-1245... 

Du côté du langage : toutes les fonctions d'un Basic 
qui se respecte sont présentes (sauf toujours le ELSE 
...), seulemeht voilà, les fonctions scientifiques 

ont été enrichies : des trigonométriques, hyperboli- 
ques, opérations en hexa, et toutes les fonctions sta- 
tistiques existant sur la FX-702P de Casio. 


Un autre point qui n'est pas des moinûres le PC-1401 
a une précision de calcul qui semble excellente. 


l'une des parties 


Mais alors me direz-vous, si la PC-1401 ressemble 
tellement au FX-702P du côté Basic, qu'est-ce qui 
fait son atout ? Eh bien c'est la partie calculatri- 
ce scientifique : en effet, la moitié droite du cla- 
vier de 76 touches est réservée à la calculatrice. 
Tous les calculs s'affichent sur l'écran à cristaux 
liquides de 16 caractères (contraste règlable). Il 
existe même un indicateur vous montrant que vous uti- 
lisez les parenthèses. Bien entendu, en mode "calc", 
vous disposez d'une mémoire spécialisée pour stocker 
un résultat intermédiaire. Pour repasser en Basic, 
il suffit d'appuyer sur une touche. 


Mais regardez jusqu'où est poussé le raffinement 
vous vous trouvez en mode Basic, vous appuyez sur une 
touche "calculatrice", la fonction correspondante 
s'affichera en toutes lettres... 4 
Ex : Si vous appuyez sur ARC, HYP, SIN il s'affi- 
chera AHS (arc hyperbolic sine) ! 
Pas mal, non ? 


Du côté extension, le PC-1401 sera connectable à une 
interface cassette/imprimante référencée CE-126P. 
L'imprimante est thermique de 24 caractères. 

Son prix ? Aux alentours de 1600 FF ttc. 


Le PC-1401, dans son étui rigide, peut donc être con- 
sidéré comme le premier d'une lignée de machines al- 
liant un Basic performant à une très haute précision 


de calcul. 
Daniel Glazman 
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technique 





Il calcule pour vous 
mais comment ? 


Les 


registres arithmétiqu 


es 


du PC-1500 





Pour effectuer les calculs arithmétiques utilisés 
notamment par le BASIC, le PC-1500 possède un jeu d' 
instructions spécialisées qui sont directement inter- 
prétées par le microprocesseur. Elles possèdent leurs 
propres codes et leurs propres registres. Attention : 
ne pas confondre avec les instructions et les regis- 
tres du microprocesseur dont il est question dans 
l'autre article qui suit !... 


Le PC-1500 possède 7 registres arithmétiques de 8 oc- 


tets chacuns, situés à partir de &7A90, en RAM SYSTEM. 











Un registre arithmétique peut contenir trois types 
d'information, selon la valeur de son 5ème octet que 
l'on appellera caractéristique. Ainsi un registre 
arithmétique pourra représenter : 


. un nombre décimal 


. un entier 16 bits signé 
. une variable 


On notera "C" la caractéristique et "RA" un registre 
arithmétique. 


REPRESENTATION D'UN NOMBRE DECIMAL 


I1 faut pour cela que C<B2 (HEXA) 
Le nombre est compris entre - 9.99999999 1099 et 
9.99999999 1099 


Le nombre se code comme suit : 


\ 








Daeen"T 


MANTISSE 


SIGNE 
EXPOSANT 


. L'exposant est exprimé par un octet sur 8 bits 
signes. 

. Le signe de la mantisse par : 90 positif 

89 négatif 

. La mantisse est codée en DCB sur 5 octets. 


REPRESENTATION D'UN NOMBRE ENTIER 
(HEXA) 
32768 et + 32767, 


I1 faut pour cela que C = B2 
Le nombre est compris entre : 
donc sur 16 bits signés. 


Le nombre se code comme suit : 






> QUELCONQUE QUELCONQUE 


NOMBRE SUR 16 BITS 
SIGNE 





REPRESENTATION D'UNE VARTABLE 


Il faut pour cela que C>B2 (en général C = DO) 


La variable se code comme suit : 





ADR représente l'adresse de la variable. 

. Si la variable est alphabétique, le dernier octet 
représente la longueur de la chaîne. 

. Si la variable est numérique alors la longueur 
vaut 88 (HEXA). 


OPERATIONS SUR LES REGISTRES ARITHMETIQUES 


HARGEMENTS 


Chargements sur 8 octets 


LDS, Y F701 LDX,5 F137 
LDS, X F707 LDX, Y F73D (56) 
LDY,X F70D (E6) LDX, (BC) F73F 
LDY,S F715 (68) LDY,(BC) F717 


LDS, (BC) F703 
LD (DE),X F711 


LD (DE),(BC) F741 


Chargements sur 7 octets (sans l'exposant) : 


EDX, Y F71B LDZ,X F72F (78) 
LDX,Z F71r LDX, (BC) F721 
LDZ,Y F7e5 LDY,(BC) F72B 
EDIX F729 (82) LD(DE),(BC) F733 
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DE TERRES ALL ANOOd 


ERA POQUETTE 


ECHANGES 
EXC X,S F7B5 EXC X,(DE)  1'/BB 
EXC X,Y F7B9 (66) EXC (BC),(DE)F7BD 


AISES À ZERO 


Zéro sur 8 octets : 


2 ——_—— 


CLX F757 (EC) CL(BC) F75B 
CLY F753 

Zéro sur 7 octets (sans l'exposant) 
LDX,0 F75F (76) LDW,@ FTUF 
LDY,0 F3 LD(BC),0 F761 
LDZ,0 F73B 


DECALAGES 


Décalage d'i octet vers la droite : 

(On code 2 chiffres décimaux par octet) 

SHR X F775 (74) SHRZ F76D 

SHR Y F771 SHR W F769 

Décalage d'} octet vers la gauche : 

SHL X F79C (EA) SHLNW F794 

SHL Z F798 

Décalage d'1 octet vers la droite : 

RRX F780 

OPERATIONS DIVERSES 

ABS X F6FB (6C) ABS X,Y F6E6 (7C) 

INV X F7EB MU2 F81C 

MU3 F829 LDR F7B9 (54) 
FONCTIONS SUR LES RA 

brerareurs DIADIQUES | 

. X = X + Y : EFBA(FO) pas de registres modifiés à part X 
6. X = 6 _. > . EFB6 " " " “” “” 
. X = X * y : FUIA(TE) Y et S non modifiés 

. X = X / Y : F684(58) Y, W et S non modifiés 

I CNE Ye BC S = Y, sinon tout est modifié 
RE MCE X,W et S non modifiés 


PERATEURS MONOADIQUES 


. X = VX  : F0E9 U,V,W et S inchangés 

. X = X2 : FO19 Y = X et S non modifié 
pee F989 (6E) Y = X et W, S non modifiés 
 X LNX F161 W = 9, S non modifié 

EN TÉQUX Fié5 X e Li Li) 

0 X —0EXPX F1CB “ ne C T 

. X = 19fX F1D/ Y = W = G, S non modifié 

IX NT EN F3A2 tous les registres sont utilisés 
XX = COSX F391 CG . Li Es 
MUXNSUTANX F39E W = @, S non modifié 

. X = ASNX : FU9A MENT SEE XX 

ER NAUSX F4g? WE=NGS 0 S =UX 

:"X = ATNX F496 Z = @, S non modifie 
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— Pour normaliser un registre, 





2 X — DEGL = 551 W non modifié 
X = DMSX : F564 tous les registres sont modifiés 
XBOX = PDO seul X est modifié 

= x = SGNX = F59D LL LL LL " 
M = ENT CUESBE Y = FRCX, pas d'autres modification 
X = RNDX : F5DD tous les registres sont modifiés 

- Les résultats qui se trouvent dans X sont normalisés. 


- Si il y a un dépassement ou une erreur le bit carry 


est levé, et H = ERREUR. 


- En ce qui concerne les registres du processeur, 
seuls les poids forts de BC et DE sont intacts. 
BESATA 
C = 7A 


utiliser la macro E8 : 
NORM. 


COMPARAISONS DES REGISTRES ARITHMETIQUES 

OMPARAISONS NUMERIQUES 
Les deux nvwmbres sont stockés dans les registres ari- 
thrétiques X et Y. 
Le type de l'opérateur de comparaison est stocké dans 
l'accumulateur selon le tableau suivant. 


m[o[elelel=Lt<k> 
b7 b6 b5 b4 


b3 b2 b1 bÿ 


L'adresse de la routine est DOD2. 
Au retour, si le test est VRAI alors : X = 1 et le 
flag Z = Q 
si le test est FAUX alors : X = @ et le 
flag Z = 1 
Exemple : X2Y? : LDX, ler nombre 
LDY, 2ème nombre 
LDA, 06 [b3 + b2] 


CP [CALL D@D2] 


COMPARAISONS ALPHABETIQUES 


Les deux chaînes sont stockées dans les registres X 
et Y. 

Le type de la Comparaison est stocké dans l'accumula- 
teur comme pour une comparaison numérique. 

L'adresse de la routine est : DÿF9. 

Le type de retour est le même que pour les comparai- 
sons numériques. 


COMPARAISONS A ZERO 


Cela revient à comparer le 2ème octet du registre 
quand celui-ci est formaté. 


Exemple : CP(7AG2),0 


ete INIST XI D 


CPX,4 se traduit par : 


Pascal Abrivard 


assembleur 


Les instructions assembleur 
du PC-1500 





A force de recherches et d'appuis sur la touche RESET, . LDD : Load & Decrement 

j'ai appris que : . LDI : Load & Increment 

. (n) = &FFOO+n 

- RCF : Reset Cary Flag 

- SCF : Set Cary Flag 

. DADC,DSBC : Operation en DCB 

. AEX échange les 8 premiers bits avec les derniers 
bits (de A) 

-  SEUCESETAU 

. RPU :, RESET U 

. RVF : RESET V 

. ENT n,d;EVL+d;ERR; RTS; ERR1 

. RBF : Reset B 


. le LH 5801 (processeur du PC-1500) est un 8 bitsca- 

pable d'accéder directement à 128 Ko (!) de mémoire. 
. le cycle interne de la machine est de 1,3 MHz. 
. les registres du MPU sont au nombre de 8 : 

: 16 bits Program pointer 

S : 16 bits Stock pointer 

W TO DEES ? 

â : 16 bits Accumulateur 

E (ou F7) : 8 bits Flags register 


Lai à NTET 
DEAN : 3 registres de 16 bits Affaire à suivre... 


Lorsque j'ai acheté l'imprimante CE-150, la première 
chose que j'ai faite a été de sortir toute la ROM sous 
forme d'octets hexa et caractères ASCII. À partir de 
là, il m'a été facile de trouver le code de RET (re- 
tour de sous-programme) et les codes d'accès immédiats 
aux registres. 

Après, toutes les instructions furent trouvées au fur 
et à mesure. 


ATTENTION : Contrairement à de nombreux processeurs, 
une donnée 16 bits s'écrit poids fort 
avant poids faible. 

Ex : LD A, (&7800 A57800 

QUELQUES ECLAIRCISSEMENTS SUR LES CODES : : »1C&7E00) AST 


Dans le cas d'une donnée 16 bits et d'une donnée 
8 bits, la 16 bits s'écrit avant la 8 bits. 


ADD (&7800),&84 EF780084 


. Le code &FD est un préfixe : tout code de la 2ème 
table doit être précédé de &FD Ex : 


808 SBC A, XI 
&D1 SBC A, (X) 
&O2  ADC A, XI 
823 ADC A, (XD 
£P4s. D à. XI 
LOS MED AC 
805 CP A, XI 
897 CP A, (X) 
828 LD Xh,a 
899 AND A; (XD 
&2A LD XI,A 
&OB OR A, (X) 
&OC DSBC A, (X) 
&AD  XOR À, (XD 
&BE LD CX),A 
&OF  BIT,A, (X) 
&i8 SBC A,YI 
T1 2 BE A0 
S12. ABC Av 
&13- ADEtA, CD 
S14 LD 441 
Si5s. LD 
816 ChA,YI 


CP A, CY) 
LD Yh,a 
AND A, CY) 
LD YI,A 
OR À; CY) 
DSBC A, (Y) 
XOR A; CY) 
LD €Y),A 
BIT A, (Y) 
SBC A, UI 
SBC A, CU) 
AaDC A, UI 
ADC A, (CU) 
LD A,UI 
LD À, CL) 
CP A, UI 
CP A, CU) 
LD Uh,a 
AND A, CU) 
LD UI,A 
{OR A, CU) 
DSBC A, CU) 
XOR A, CU) 


LD 

BIT 
NOP 
INC 
LDI 
DEC 
LDD 
INC 
LDI 
DEC 
LDD 


AND 


(U>, a 
A; CU) 


(x), nm 
EX IS ia 


INC Y 

BOIS IGN) 
BEC 

BDHJA 10 
PDT 
AND (Y),n 
ESS Are 


LD Uh: n 
AND CÜ);n 
PAUSE 
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OR (U),n 
CP Uh,n 
BIT (U),n 
EÉPAU M 
ÀDD (U),n 
SBC A, Xh 
JRNC, +n 
ADC A, *h 
RE; -En 

LD A, Xh 
JRNH, in 
CP A, Xh 
JRH, 5n 
DJC -n 
JRNE, +n 
RETI 

JR2Z, +n 
DADC A, (x) 
JRNU, +n 
JR +n 
JRU, +n 
SBC A, Yh 
JRNC, AA 
ADC A, ÿh 
JRC, -n 


LD A, ÿh 
JRNH, -h 
CF A; Yh 
JRH, -n 
PPT 
JRN2Z, alt 
RET 

JRZ,  < 
DADC A, (Y) 
JRNU, -n 
JR -n 
JRU, -n 
SBC A, Üh 
SBC A, CN) 
ADC A, Uh 
ADC A, CN) 
LD 4, Uh 
LD A, {N) 
CP A; Uh 
CP A, CN) 
SPU 

AND A, CN) 
LD S,N 

OR A; CN) 
DADC 4, CU) 


XOR A, CN) 
LD CN),A 
BIT A, CN) 
SBC A,n 
ADC A; n 

LD A; n 

CP @n 

RPU 

AND A,n 
JMP N 

OR A;n 
XOR fn 
CALL N 
BIT A,n 
CALLNC,; (n) 
CALLC,; (nm) 
CALLNH, (n) 
CALLH, (n) 
CALLNZ; (n) 
CALLZ;, (n) 
CALL €Cn) 
CALLU, (n) 
ENT n,d 
RRA 

SRD 


2EME, TÊBÈE 
PREFIXE &FD 


fonction identique Autres fonctions 
a la iere tahle 
mais sur page 2: 
82A POP x 
&18 PDT 
881, &03, &05, &07 &iA PEPY 
&D93, &OB, &AC, &BD 828 LD X;U 
&DE;, &2F, &li, &13 &2A POP U 
&15: &17, &19, &1B 840 INC Xh 
&1C, &1D, &IE, &1F 842 DEC Xh 
LD x; S 


&21;, &23, &25, &27 848 
829, &2B, 8&2C;, &2D 84C RBF 


82E, &2F; &49, &4B &4E LD S, x 
&4D, &4F, &59, 85B &58 INC ŸYh 
&SD, &5F, &69, &6B 852 DEC Ÿh 
&6D, &6F, &8C; &9C 858 LD %,P 
8&A1;, &A3, &AS, &A7 &5A LD Y, x 
&AS, &AB, &AC, &AD &SE JMP  CX) 
&AE, &AF, &ES, &EB &69 INC Uh 
&ED, &EF &62 DEC Uh 


SRA 

SLD 

SLA. 

RLA 

INC 

EUL 

DEC 

ERR 

SPU 

RTS 

RPU 

ERR1 

AND CN); n 
OR CN); n 
BIT (N;n 
ADD (N),;n 
AEX 

RUF 

LD (CY), CX) 
CPI À, CX) 
RCF 

SC 

shift 
RESET 








g 
i 
5 
hs 
® 
pe 
[æ] 
re 
pa 
N 
5 
g 
5 
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le DOS de A à Z 





Après l'étude de la commande COPY qui s'est poursuivie 
sur 4 numéros (TRACE n° 4 à n° 7) nous abordons main- 
tenant la description de nouvelles commandes CREATE, 
DATE, DEVICE (la commande DEBUG appelle en fait un 
utilitaire spécifique, et sera sautée dans cette étude). 


CREATE, 
DATE, 


DEVICE 


CREATE 


FORMAT NEWDOS 80 V2.0 


CREATE, Specfich1 [,LRL=In1] [,REC-Compt1]l [,ASE-yn] 
[,ASC=yn] 


La commande SED <CREATE> crée un nouveau fichier de 
nom Specfich1 ou modifie l'état d'un fichier existant 
Specfich1. 

Cette commande permet à l'utilisateur de préallouer 
l'espace disque nécessaire à un fichier. 


Les paramètre utilisables sont les suivants 


LRL= n : Spécifie la longueur de chaque enregistre- 
ment du fichier 1< n < 256 
Valeur par défaut = 256. 


Le Modèle 1 possède plusieurs Systèmes d'Exploitation | 
des Disquettes (SED, ou DOS en anglais). Ces diffé- | 
rents systèmes ont beaucoup de points communs, 
particulièrement ceux de la "lignée" TRSDOS- 
NEWDOS-NEWDOS80-LDOS, qui s'inspirent tous, à | 
quelques détails près, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons régulièrement sous 

forme de fiches pratiques, les commandes de ces 

différents DOS, classées alphabétiquement. Ces 

fiches ne prétendent pas remplacer les manuels 

originaux qu'il est impératif de posséder (il | 
n'était pas envisageable de publier sous cette forme 
l'équivalent de plusieurs centaines de pages ...). | 


REC=Compt1 : Spécifie le nombre d'enregistrements 
initialement alloués au fichier 
Valeur par défaut = O0. 


ASE=yn : Ce paramètre indique si le SED doit allouer 
automatiquement après la commande CREATE un 
espace supplémentaire disque pour le fichier 
ASE=Y autorise cette allocation, ASE=N l'in- 
terdit. 

La valeur par défaut est ASE-Y. 

Leur but est de fournir à l'utilisateur une 

information rapide d'accès (classement alphabétique), 

pratique (exemples d'utilisation), comparative 

(différents DOS) et dans une langue qu'il est censé 

connaître (français)... 


ASC=yn : Ce paramètre indique si la fonction de fer- 
meture de fichier du SED permet de désallouer 
automatiquement l'espace disque en excédent. 
ASC=Y autorise cette désallocation 
ASC=N l'interdit. 

La valeur par défaut est ASC=Y. 


Les DOS les plus répandus ont été retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 

LDOS version 5.0 de Lobo Drives International. En 
règle générale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les différences ou les 
apports rencontrés dans les autres systèmes 
d'exploitation. 


Conventions d'écriture 


FORMAT LDOS V 5.1 


Dans la description d des, 1 ts 
Rs Ce De ne ee ne Ne CREATE Specfich (LRL=aaa, REC=bbbb, SIZE-cccc) 


caractères majuscules désignent les commandes 


proprement dites, ainsi que les mots-clés associés. 
Les mots en caractères minuscules ne font pas partie 
des commandes mais en représentent la forme. Au 
moment de l'exécution, il faudra leur substituer 

le ou les mots appropriés. Parmi ceux-ci, nous 
trouverons par exemple "nomfich", qui désigne 

un nom de fichier, "motpasse" qui signifie qu'un 
mot de passe (password) est attendu à cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnés devrait lever toute ambiguité. 

Enfin, il faut signaler que le NEWDOS80 emploie 
indifféremment la virgule ou l'espace comme 
séparateur dans les commandes. 


Même rôle que sous NEWDOS 80 V2.0 
Paramètres possibles : 


LRL=aaa : longueur de l'enregistrement logique 
1 < LRL < 256 
Valeur par défaut 256 


REC=bbbb : nombre d'enregistrements de longueur LRL= 

aaa à allouer au fichier. 

SIZE=cccc : espace disque en kilo-octets que le fi- 
chier peut occuper. SIZE ne peut être 
spécifier si LRL et REC le sont. 
Abréviations : LRL=L, RECH=R, SIZE=S. 
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FORMAT NEWDOS 80 V2.0, LDOS V5.1, TRSDOS 
DATE [mm/jj/aa] 


Etablissement de la date courante suivant le format : 
mm=mois, jj=jour, aa=année 

avec 01< mm < 12 , 0O1< jj< 31 et 00< aa< 99 

Si aucun paramètre n'est spécifié la comma 

fiche la date courante de l'horloge en temps réel sous 

le format mm/jj/aa. 


Sous LDOS ou NEWDOS80, le message DATE? 
ou DATE apparaît à la mise sous tension, 
l'utilisateur doit fournir une réponse 
suivant le format mm/jj/aa, la plage au- 
torisée de réponse est comprise entre 
01/01/80 et 12/31/87 (LDOS). 


Remarque 1 : 


Une fois là réponse donnée le SED affiche l' 
abréviation du jour de la semaine, le nom du 
mois (abréviation) et le n° du jour dans le 
mois ét l'année complète (1980 à 1987). Le 
message de demande de DATE peut être supprimé 
avec l'option SYSTEM (DATE=NO). 


LDOS : 


Sous NEWDOS 80 V2.0 la dévalidation cor- 
respondante est possible avec les options 
de la commande SYSTEM (AY=N et AZ=N). 


Remarque 2 : 


DEVICE] (n'existe pas sous NENDOS 80) 


Affichage de tous les dispositifs logiques utilisés 
par le système avec les abréviations 


KI = clavier (KEYBOARD INPUT) 
DO = écran (DISPLAY OUTPUT) 
PR = imprimante (PRINTER) 


(autres dispositifs logiques sous LDOS : 
x SO, x UD). 

LDOS fournit également les caractéristiques des dis- 
quettes utilisées dans les unités disponibles (nombre 
de faces, densité, localisation de la piste répertoi- 
re, nombre de pistes, temps d'accès piste) sous le 
format : 


x JL, x SI, 


aabb ce dddddd ee FfFFFFFF eggg iiiiiiiiii jjjjjj 


avec : aa = n° de DRIVE 

bb = état de protection de la disquette (option 
SYSTEM : DRIVE = WP) 

cc = taille du "floppy" ou "hard" disque 5 
pouces ou B pouces 

dd = type de DRIVE : souple ou rigide 

ee = pour les disques souples : emplacement 
physique du DRIVE sur son câble (1,2,4,8) 
pour les disques durs : n° de la tête de 
départ 

ff = nombre de cylindres (pistes) 

gg = densité de stockage (DDEN ou SDEN) 

hh = nombre de faces (1 ou 2) 

ii = temps d'accès piste à piste en ms pour 
l'unité de disque considérée 

jj = temps d'attente entre le démarrage du 


moteur et l'accès possible à la disquette. 
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Index des 
mots-clés 





La liste des mots-clés figurant ci-dessous est 
destinée à être exploitée par le programme de 
gestion des articles décrit dans le numéro 1 de 
TRACE (pages 58 à 64). Le format est le suivant: 


Nom abrégé de l'article, numéro de page : 1 à 4 


mots-clés. 


En prenant l'habitude d'entrer cette liste à 

chaque numéro de TRACE, vous constituerez ainsi ure 
petite base de données vous permettant de trouver 
plus efficacement et plus rapidement l'article que 
vous cherchez. Bien entendu, cette liste est donnée 
à titre indicatif, et vous pourrez toujours en mo- 
difier ou en compléter le contenu, afin de l'adapter 
à vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
clés (en principe, ils sont limités à 12 caractères) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donné dans l'article. Pour 
cela aussi, faites-nous part de vos idées! 


MODELE 4, 13 : ESSAI, MATERIEL, MOD4 

PEEK & POKE, 16 : PEEK, FOKE, BASIC 

CLAVIERS MOD 3, 17 : QWERTY, AZERTY, 
MODS, CLAVIER 

CTR80, 18 : CASSETTE, TRUC, MATERIEL 

CARTE HRC, 19 : ESSAI, MATERIEL, 
COULEUR, GRAPHIQUE 

LUNE, 21 : PROGRAMME, BASIC, GRAPHIQUE 

EN 2 MOTS, 23 : JEU, PROGRAMME, BASIC 

OUVREZ, 30 : BRICOLAGE, INTERFACE, 
MATERIEL, PROGRAMME | 

MOTS CROISES, 35 : PROGRAMME, BASIC, 
ENSEIGNEMENT 

COPIE DISQU, 39 : OUTILS, DISQUETTE, 
PROGRAMME, DOS 

CETASM, 40 : OUTILS, ASSEMBLEUR, 
PROGRAMME 

CUBUS, 42 : JEU, COULEUR, PROGRAMME 

TRES BEAU, 43 : PROGRAMME, TDT, BASIC 

SUFERDIR, 44 : MOD2, BASIC, PROGRAMME, 
DOS 

MAGIE, 50 : POGUETTE, NOMBRE, FROGRAMME 

RACONTE, 51 : PC1211, POQUETTE, 
PROGRAMME, ENSEIGNEMENT 

TRI, 52 : POQUETTE, TRI, PROGRAMME, 
OUTILS 

PCI401, 52 : POQUETTE, ESSAI, PC1401 

REG ARITH, 53 : FOQUETTE, FCI500, 
REGISTRES, ARITHMETIQUE 

ASSEMBLEUR, 55 : POQUETTE, ASSEMBLEUR, 
FC1500 

DOS DE À À Z, 57 : 


FICHE DOS 
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pour rileue ehotote 
votre oxdinateur et poux 
frilaux L ueilioer: 





L'ORDINATEUR 


INDIVIDUEL 


Vous y trouverez : 

e l'actualité et les tendances de l'informatique individuelle 

e les bancs d'essais des principaux matériels des panoramas 
et des tests comparatifs e le point des grandes manifestations 
internationales e des articles d'initiation e des synthèses 

e des programmes e des interviews “exemplaires” 

e des conseils e des idées e des astuces 


L'ORDINATEUR INDIVIDUEL, chez votre marchand de journaux 
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TRES SPECIAL. 
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